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pee LE ‘Extract help text from Library’; 
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i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corire 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
‘* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


+ 
® 
® 
® 
® 
® 
® 
' & 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. : 
® 
© 
ke 
® 
*® 
* 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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003 ! 
BOs FACILITY: Library access procedures 
$4 ABSTRACT: 
0037 i The VAX/VMS Librarian procedures implement a standard access method 
sit to Libraries through a shared, common procedure set. 
0040 i ENVIRONMENT: 
0041 i 
sek i VAX native, user mode, 
04 i 
0044 in 
0045 i 
0046 i 
S944 AUTHOR: Benn Schreiber, CREATION DATE: 17-Sep-1979 
sn MODIFIED BY: 
0051 i v03-016 Sun0069 Greg Awdziewicz 28-F eb-1984 
Beg : Allow more characters in help keys in Scan_Word. 
005 i - Check validity of first character in help Key in 
boas Scan_Word. 
0056 i v03-015 MCNO140 Maria del C. Nasr 16-Nov-1983 
0057 i Make sure that the key being looked up is not longer 
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v03-013 


v03-012 


v03-011 


v03-010 


v03-009 


v03-008 


v03-007 
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than the maximum size allowed for the given Library. 


JWT0114 Jim Teague 20-Apr-1983 

Activate DCXSHR pit when needed. 

JWT0098 opps 01-Mar-1983 
Clear hip$v_ cieatiate bit on exit 

from print_options. 

JWT0089 Jim Teague 13-Jan-1983 
Clear up 9th oon HELP problem, 

JWT0070 Jim Teaque 29-Nov-1982 

Adjustment to previous fix. 

JWT0064 Jim Teague 11-Nov-1982 

Expanded area pilecated for DCX records. 

JWT0062 Jim Teague 09-Nov-1982 
Made DCX compress/expand descriptors static. 

JWT0056 17-Sep-1982 


Jim 
Equipped Lbr$get_ help Me DCX expansion interface. 
RPG49043 Bob Grosso 07-Sep-1982 


Line_width of 0 didn't default to 80 as it was supposed to. 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: CLBR.SRCJGETHELP.B32; 29 


LB 


LBR_GETHELP 
v04= 


89 
90 
4! 
98 
94 


96 


eee ce ee ee cee a ee ee ce ee ce ce a cd cee ced ee ce ee ee ed oe dd ed ed ed dd 
AMALARSPOPONPOPINPONPINONYDD 2 2 2 OS SS 


—> — ws ss 
vis 
PAR UM OOO~ 


St at ee et et ek 1 he 
Mslwh—O0OnN 


SARWN SODA AR WV HODBUE AEN ODO IRN 


Extract help text from Library 1 
eclarations 1 


COO9Cd COCO COCOMIMID OOOO 
Oooo 


FB HEWN NINN NWI OO 


SOOOCOCOCOCOCOCOCOCOCOOCOCOCOCOCOOOOOOCOOCOOOOoOO Vg 
WN O DONO WN (OOS NAOUE WN OOM 


at 


Oo 
co 
ar 
FWP" OVOONOUSE 


COOOCCOCCCOoCooSoo 


— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


num 


ZSBTTL ‘Declarations’; 
LIBRARY 
*SYSSLIBRARY: STARLET’; 
REQUIRE 
PREFIX’; 
REQUIRE 
"LBRDEF'; 


LINKAGE 
fmg_match = JSB (REG 


pelo 
mo 
ao- 


EXTERNAL ROUTINE 
Lbr$load_dcex, 
traverse_keys, 
Lookup_key, 
validate ctl : JSB_1, 
oe mem : JSB_2 

ealloc_mem :~J5B_2, 
read_record 


: JSB ° 
LibScvt_dtb : ADDRESSING_MODE (GENERAL), 


Lib$put_output : ADDRESSING MODE (GENERAL), 
fmg$match_name : fmg_match; 
EXTERNAL 
dcxshr_address, 
dcx_expand_data, 
LbrSgl_confrol : REF BBLOCK; 


EXTERNAL LITERAL 
Lbr$_invkey, 
Lor$_invnam, 
Lor$_normal 
Lor$-nothlplib; 


FORWARD ROUTINE 


scan_word, 
Sate Upper C88. 
help_check_mtch, 
petp.check pret, 
help_do_keyl, 
expand_Tt; 


PSECT OWN = SCODES; 
OWN 
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: NOTUSED (10, 11); !Linkage for fmg$match_name 


'Traverse index 

‘Lookup key in index 
‘Validate control index 
‘allocate memory 


‘Read a text record from Library 
‘Convert decimal to binary 
‘write Line to SYSSOUTPUT 

‘Match name with wild chars. 


‘Pointer to current Library control block 


!Copy key name to buffer i 

!Send Line to user routine or Lib$put_output 
‘Print a blank Line ao 
‘Tell that no help was found as specified 
‘Print help available under current topic 
‘Print help text found in Library 

‘print Line 

‘Print keys found 

‘Check for key Line 

'Skip blanks on Line 

'Scan off a word 

‘Upcase a name - : 

‘Check entries for matches if wild cards 
'Check entries for partial matches 
‘Process a key] 

Common routine to expand data 


‘Put own data in code psect since its shareable 


nodocmsg : countedstring ("Sorry, no documentation on '), 


H 3 | 
ue 6s «dle ee E28eb=1382 93:87:98 DNS UShAS Tens cLBAS skCScerHELP.032:1°%° «2d 


146 0873 «#1 otherinfo : countedstring (‘Additional information available:'); 
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(= 


} 
; «148 74 1 2SBITL ‘Routine eet help'; 
5 149 75 1 ROUTINE get_help (heTpdata) = 
: 150 7 BEGIN 
; 151 7 
— ¢ 087 '++ 
: 137 8 Y } This routine does the actual looking up of the first level key for lbr$get_help 
Py 1 H 
: 127 0881 ! Inputs: 
3 136 Bas : 
5 13e Os Z helpdata address of help data vector set up by Lbr$get_help 
: 159 0885 i Qutputs: 
; 160 OBE : 
; 161 88 : The help request is processed. 
; 166 0888 : 
; 16 0889 len 
: 164 0890 
>; 165 0891 MAP 
; 166 94 helpdata : REF VECTOR C,LONG); 
3 167 089 
: 168 0894 LOCAL 
: 169 0895 pmatch, | 
; 170 0896 keyirfa : BBLOCK Erfa$c_length); 
: 171 0897 
3 176 0898 § BIND 
Fee te 0899 helpinfo = .helpdata Chip$k_info] : BBLOCK 'Help info 
: «174 0900 2 wildflag = helpinfo Cale t_wildflags] : BITVECTOR, ‘Bit flag true if key is wild 
: iv 44 $ keyidesc = .helpdata Chip$k_keyldesc] : BBLOCK; ‘Key 1 descriptor 
3 77 090 § pmatch = false; 
3: 178 0904 ! 
3 im? 3443 2 See if any wild characters present in key name | 
: «(181 0907 ; IF NOT CHSFAIL (CHSFIND CH (.keyldesc Cdsc$w_length], .keyldesc Cdsc$a_pointer)], %ASCII ‘*')) 
3 186 8443 OR NOT CHSFAIL (CHSFIND_CH (.keyldesc CdSc$w_length], .keyldesc CdSc$a_pointerJ, ZASCII '%')) | 
3; «(186 0910 THEN BEGIN 
: «185 0911 wildflag (0) = true; 
: 6186 bots 4 porters (traverse_keys (1, help_check_mtch, 0, .helpdata)) | 
s 187 091 ND 
: 188 0914 | 
3; «(189 0915 ELSE 
3: 190 0916 BEGIN 
3; 191 ie LOCAL 
; 136 918 status; : 
3; «19 0919 status = lookup_key (1, keyldesc, keyirfa); ‘If key is in library 
3 194 0920 IF (.status EQL Lbr$_invkey) THEN return .status; 
3; «6195 921 IF .status | 
: 196 9 3 THEN 2 
3; 197 9 4 perform (help_do_key1 (keyldesc, keyirfa, .helpdata)) ! then process it | 
s 198 0924 3 ELSE 
: 199 0925 4 E 
; 200 926 4 wildflag C0] = true; ‘Partial match counts as wild. 
; 201 927 4 pmatch = true; 5 
3 4 928 4 perform (grave se_keys (1, help_check_prtl, 0, .helpdata)); ! otherwise see if partial match 
: 3 8 , $ yiidtlag 0] = false; 
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4 1 END; 
i Check to make sure we found some help text 
935 
9 IF NOT .helpinfo Chlp$v_anyhelp] 
339 THEN BEGIN — 
9 3 IF .pmatch 
4 THEN BEGIN 
940 4 IF sheleinte Chip$l_pmatch] EQ. 1 'If there was exactly 1 partial match 
0941 THEN BEGIN 
94 wildflag C0) = fa 
94 help_do Sayi thetbiato Chipsb oath 'Find the spot to print options from 
0944 ; Ws helpinfo ChipSb_pmtrfai, .helpdata); 
0946 4 FLSe helpinfo Chip$l_lastlevel] = 
0947 4 END 
0948 4 
0949 3 ELSE 
0950 4 IF ( .~helpinfo Chlp$l_lastlevel] GTR 0 ) up to ra found key 
O92) THEN helpinfo Chlp$l _Tastlevel] = .helpinfo Chip$l_ Lastlaes ]- 
$388 IF NOT .helpinfo Chlp$v ~anyhelp} 'If help still not cdatal 
baee THEN perform (print_nohelp (.helpdata)); iPrint no help info 
$986 5 ; 
0957 § RETURN true 
0958 
0959 1 END; ! Of get_help 


-TITLE LBR_GETHELP Extract help text from Library | 

-IDENT \V0%-000\ | 

-PSECT $CODES,NOWRT,2 

1B 00000 NoDOCHSG: | 

2 72 6F 53 00001 “ASCII \Sorry, no documentation on \ ; 

1 74 6€ 65 00010 

21 0001C OTHERINFO - 

69 64 41 0001D "ASCII \Additional information available:\ : | 
74 61 6D 72 Q002C 3 
A 6C 00058 ; 


EXTRN LBRSLOAD_ DCX, TRAVERSE KEYS 
pores LOOKUP KEY, LLGEERER 


MEM, DEALLOC 
XTRN READ_RECORD, LIBSCV 
XTRN LIBS$PUT or ut PRCORATCH NAME 
~EXTRN DCXSHR _RODRESS, DCX PINAKE DATA 
-EXTRN LBRSGL~ CONTR OL ions 
LBR$_INVNAM, LBR 
EXTRN tBRS” “NOTHLPL 16 


003C 00000 GET_HELP: 
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Save R2,R3,R4,R5 


$ 
1 
1 
$ 
He (R3), @4(R3) 
1 
1 
$ 
1 


- 68(R2) 


-(SP) 
HELP_CHECK_MTCH 
#4, TRAVERSE_KEYS 
#*°M<R3,SP> 

#1 


#3, LOOKUP KEY 
STATUS, #LBRS$_INVKEY 


EIA. 6$ 
KEYIRFA 


R 
#3, HELP_DO_KEY1 
STATUS, 7$ 


#1, 68(R2) 

#1. PMATCH 

R4 

-(SP) 
HELP_CHECK_PRTL 
#4, TRAVERSE_KEYS 
STATUS, 12$ 


a1 age lne? 


Re} 
Re) 
HELP_DO_KEY1 
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Vc=860"-’ Routine getohetp) om rer” a Seo-19RE 90:49:08 YMC WBASSHeRe Cts C6 Scenweue.032:4°%° caf 


1g 83 bP BOGR BEEP tp, ) ‘0951, 

OA 08 AS BB BooRs 10s BLBS (68S 145 : 0955, 

54 DD 000B PUSHL RG : 0954 

0000v CF 9} FB 089 CALLS #1, PRINT_NOHELP ; 
03 0 €9 O00BE BLBC STATUS, 128 : 

50 01 00 000C1 11$:  MOvL #1, RO * 0957 

04 000C4 12$: RET * 0959. 


; Routine Size: 197 bytes, Routine Base: S$CODE$ + O03E 
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ZSBTITL ‘Routine lor$get_help' 


ster ROUTINE Lbr$get_hélp fcontrot. index, Line_width, user_routine, user_data, keyldesc) = 


ees 
' 
FUNCTIONAL DESCRIPTION: 
This routine extracts help text from a help Library, optionally 
indents the output, and then prints the Line or tails a supplied 
routine with a string descriptor. 
CALLING SEQUENCE: 


status = LBRSGET_HELP (control_index, Cline_width, user_routine, 
user_data], keyldesc C,key2desc, ...J) 


INPUT PARAMETERS: 
control_index is the control_index obtained from LBRS$INI_CONTROL 


Line width is address of Tongword containing linewidth. (D=80) 
user_routine address of user typeout routine 

user_data address of user data to pass to user typeout routine 
keyldesc,... addresses of string descriptors for keys 


IMPLICIT INPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
The HELP Library must be open. 
i 
i] 
i 
i 
i 
i 
i 
1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
le 


!' OUTPUT PARAMETERS: 
NONE 
' IMPLICIT OUTPUTS: 
If no user routine is specified, the help text is printed on SYSSOUTPUT 
using LIBSPUT_ OUTPUT. If there is a user_routine, it is called for 
each Line of Relp text found or generated: 
ROUTINE VALUE: 
status lbr$_normal | : 
Lobr$_nothlplib Not help Library 
Lor$_invnam Too many arpunents 
Lor$_invkey Key is too long 
SIDE EFFECTS: 
NONE 


) 
keyldesc : REF BBLOCK; 


LOCA 


L 
helpdata : BBLOCK Clbr$c_pagesizel, '‘A place to copy arg List into 


snes Page 9 
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ibe =000 Routine Lbréget help 12-8 08- 1 3be 95:39:98 PLEKSVMEHASTERSLY BR SRCIGETHELP.B32;1 ’ 
; 2 1017 foundkeys : BBLOCK Chlp$c_maxkeys * dsc$c_s_bln], ‘string descriptors for found keys 
; $38 1018 keydescriptors : BBLOCk ERtpsc_maxkeys ‘ aeche s_blnJ, iString descriptors for keys uppercesed 
> 294 1019 ptr, ‘Temp pointer 
3 sae 1020 curkeydesc : REF BBLOCK, 
: $36 1092 hetpinfo : BBLOCK [hip$c_size + hlp$c_maxliswid] 
; elpinfo : c_size c_maxliswid], 
; 298 10 ‘ dese : BBLOCK Seeks E BtAl Pe 
3; avy 1024 help_help, 
3 BY 18 ; ots; 'A string of dots 
; 0¢ 1027 2 BUILTIN 
; Hi 1028 ACTUALCOUNT 
; 306 19 ; NULLPARAME TER; 
: 306 1031 perform (validate_ctl (..control_index)); ‘Validate control index 
: 308 1938 
; 309 1034 ; helpvector = helpdata : VECTOR C,LONGI, 
; 310 1035 wildflag = helpinfo Chip$t_wildfla s] : BITVECTOR, 'Bit flags 
a 1036 3 mykeyldesc = keydescriptors : BBLOCK, 'Key 1 Sener tptor to be filled in 
3 a1§ 1037 3 context = .lbr$gl_control Clor$l_ctxptr] : BBLOCK, ‘Context bloc 
3 ‘7 1oa8 ; header = .lbr$gl_control Clor$l_hdrptr] : BBLOCK; ‘Library header 
: 315 1040 3 ! Check that Library is indeed a help library and that there were 
: $9 1942 ; not too many arguments supplied. 
; 318 1043 3 IF .header Clhd$b_type] NEQ Lbr$c_typ_hl ‘If Library is not help Librar 
; 333 ek ; THEN RETURN (Br$ nothiplib; sitet r . : 
: 321 1046 3 IF ACTUALCOUNT() GTR hlp$c_maxkeys + 4 'If too many args 
3 356 Nee ; THEN RETURN Lbr$_invnam; ! then return error 
: 324 1049 3! 
3 $52 1999 H If the key is longer than the maximum size for this library, return error 
: 327 105¢ 4 "BEGIN 
3; 328 1053 4 
; 329 1054 4 D 
3 $34 1322 : indexdesc = header + Lhd$c_idxdesc : BBLOCK; ! First index descriptor 
; $36 + 44 ? f -keyidesc Cdsc$w_length] GTR .indexdesc CLidd$w_keylen] - 1 
: 334 1059 4 es RETURN Lbr$_invkey; 
; 336 1061 3 : 
3 37 1006 ! 
; $30 IT Set up the data List that is passed to all the lower level routines. 
: 340 1065 "  CHSMOVE( ((ACTUALCOUNT () + 1) ® 4), control index - 4, helpdata); !Copy argument List 
; «341 1066 CHSFILL (0, piere maxkeys * dsc$c_s_bln, keydescriptors); : 
: 225 Ht ,  help_help = %A CIT ‘HELP’; 'Set up string of ‘HELP’ 
: i 138) . Zero helpinfo 
; 346 1071 3 —helpvector Chip$k_info) = helpinfo; ‘Point to the info buffer 
5 rh 4 1376 , CHSFILL (0, hlp$c_size, helpinfo); ‘Zero control information 
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; 349 1074 ! If no KEY] was specified, or it was null, use ‘'HELP’’, otherwise, convert keyname ; 
3 3} 130? j Stven to upper case. ° 
: ¢ 1097 IF gt he (hip$k_keyldesc) 'If its not present : 
; 3 1978 -keyldesc bds¢ $w_ Length] EQL 0 ! or present and null . 
3; 6354 107 oR -keyidesc Cdsc$a_pointer] EQL 0 ° 
28 198s 4 THEN BEGIN Chip$v_helphip) = 'Indi i i help k ; 
; elpinfo v he _true; 'Indicate inserting he e ‘ 
: 357 1088 4 mykeyldesc tascSu. Length , Fags ; 
: 358 1083 4 mykeyldesc Cdsc$a~pointer] = help. help; : 
: 359 1084 4 : 
; 360 1085 4 ELSE BEGIN ‘ 
: 361 1086 4 helpinfo Chlp$v a fe igi * 'Indicate not sneer t ing help key . 
3 306 P 1087 4 perform (get_mem desc "Tisai pointer’ ‘Allocate storage for key name ‘ 
; 36 1088 4 mykeyidesc Cdsc$a_pointer])); : 
: 364 1089 4 make_upper_case (.keyldesc, mykeyTdesc); ‘Convert to upper case ‘ 
; 365 1090 3 END; : 
; 366 1091 ; ; 
3s Jer 109 polpyerter Se Chipsk rey idence? = mykeyldes 'Change arg List : 
; 368 1093 3 I Tpint o Chip$t_wildfla agsi): iZero wild key flags : 
3 $58 Hee: ; IF NULLPARAME FER ( LpSk._ Linewidth) OR ~ Line. width EQL 0 ‘ 
: 1a! 44 ; gnnintate Chip$l_width] = hlp$c_liswidth 'Use default if none or 0 supplied ‘ 
a 1098 ; helpinfo Chlip$l_width] = MIN (..Line ei hlp$c_ maxliswid); : 
; 374 1099 helpinfo Chip$l_curptr]_= helpinfo + ni pos : 
3; 375 1100 3 helpinfo Chlp$l-bufdesc] + 4 = .helpinfo Chips. curptrd; : 
: 376 1101 3 helpinfo Chl sl bufdesc] = shel pinfo Chip$l width] ; 
3 77 1158 3 CHSFILL (0, LpSc_ maxke s* dsc$c_s_bln, foandtenss: !Zero descriptor array : 
$ 38 Yt : helpinfo Chip$l_keylistJ = foundkeéys; 'Set pointer for lower routines : 
; 380 1105 3! : 
; 381 1106 3 ! See if keyl string contains ‘'..." . If so, flag it and modify the string : 
; 382 1107 3 ! descriptor to delete it. . 
; 383 1108 3! : 
; «384 1109 3 dots = ZASCII'. ’ 
3 HH 1139 : ptr : CHEF IND. sua ( ‘aykeyidest Cdsc$w_length], .mykeyldesc Cdsc$a_pointer], : 
: 387 1118 3 IF NOT CASPAIL. ¢ (.ptr) : 
; 388 1113 4 AND eer EQL (.mykeyidesc Cdsc$a_pointer] + .mykeyldescl dsc$w_length] - 3)) i 
; 389 1114 4 THEN BEGIN : 
: 390 1115 4 ee ierete Chip$v_allhelp] = true; 'Flag ... seen : 
BOG : 
3 338 Hy : wildbits = helpinfo Chip$t_wildflags] : VECTOR C,LONG]; : 
: 395 1120 5 wildbits £03 = 2X 'FFFFFFFE’; 'Set all lower keys as wild : 
: 396 1121 5 wildbits C1) = -1; 3 
: 397 1156 & END; ; 
; 4 iis 4 : : 
; 399 1124 4 ereertdons Cdsc$w_length] = .mykeyldesc Cdsc$w_length] - 3; ! and adjust key length 3 
: 204 1198 3 | 
: 402 1139 ' Look at the key descriptors to make sure that no extra, null key descriptors : 
3 ret 1168 were passed. : 
; 405 1180 helpinfo Chip$l_realkeys] = ACTUALCOUNT () = 4; ‘Initially, this is # of keys : 
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3 406 1131 
; 40 11 é IF “astotate Chl p$v a) thele2 'If printing all hel tp 
; 408 11 aholpinte thipsy helphlpJ ! or have inserted ‘HELP’ key 
: re 1} : PHEW helpinfo Chip$T_ ape i then only look at first key 
: 411 11 § IF AnineRO Y FR Chl tpt. realkeys] GEQ 2 'If 2 or more keys 
: tig 11 THEN IN 2°TO .he me Chip$l_realkeys] ! then look at key2-keyN 
s 61 1138 40D 
; 414 1139 4 
$ fiz itz ? keydesc = keydescriptors + dsc$c_s_bln*.i : BBLOCK; 
3 rt 4 1336 2 curkeydesc = .helpvector C.ithlp$k_keyldesc-1]; 'Point to next descriptor 
: 419 1144 4 IF .curkeydesc EQL 'If 0 descriptor 
: 420 1145 4 OR sour eeyaeee dsc$w_length] EQ. 0 ' or 0 Lengt 
: 421 1146 4 OR .curkeydesc (Cdsc$a_ noha” EQL 0 i or 0 ee 
3; 6 ¢ 1147 4 OR CHSFAI (CHSF IND i or all blank 
: 42 1148 4 sere eydesc No NOT length], .curkeydesc Cdsc$a pointer], Zc’ ")) 
> 424 1149 5 THEN B 
: 425 1150 5 pe erars Chip$l_realkeys] = .i - 1; ! Set real number of keys 
: 426 1151 5 EXITLOOP; 
: 427 1326 5 END 
; 428 1153 5 ELSE BEGIN 
; 429 1154 5§ IF NOT CaarAns. (CHSFIND_CH (.curkeydesc atta yreneshs. 'Determine if key has wild chars in it 
; 430 1155 5 urkeydes c"CEdsc$a pointer], 
; 431 1156 5 OR NOT ciSFATL CCHSF IND CH’ (, scurkexdese *Easc$w lonachdl; 
: 432 1157 5 desc Cdsc$a pointer ZASCII '%*)) 
; 433 1158 5 THEN wildflag. -i-1]) = true 
> 434 P1159 5 perform (get, “vw ‘. -curkeydesc Casc$y gtensthd. 'ALlocate memory to hold string 
>; 435 1160 5 keydesc Cdsc$a_pointer]) | 
; 436 1161 5 make_upper_case (.curkeydesc, Reydesc) ‘Convert to upper case 
: 437 By 5 helpvector C. it+hlo$k _keyldesc-1] = keydesc; ‘Correct pointer to descriptor in help vecto 
: 438 1163 4 END; 
: 439 1164 3 END; 
; 440 1165 3! 
> 441 1166 3 ! Get the help 
; 462 1167 3 ; 
3 443 1168 3 status = get_help (heipdata); 'do the help thing 
> 444 1169 3! 
3 re 1129 ; Deallocate any key strings that were allocated 
3 447 1172 3 IF NOT “k's't Chip$v_hel ated. THEN 'If keys were present 
: 448 1173 3 INCRU i 0 hip$c_maxkeys-1 
3; 449 1174 4 DO BEGI 
; 450 1175 4 
3; 451 1176 4 keydesc = keydescriptors + dsc$c_s_bln*.i : BBLOCK, 
: rt Wt : curdesc = foundkeys + dsc$c_s_bln*.i : BBLOCK: 
3: 654 1179 4 IF .curdesc Cdsc$w_length] NEQ 0 
; 455 1180 4 THEN IF .curdesc Cdsc$a eUraese NEQ 0 
: 456 1181 4 THEN dealloc_mem (.curdesc Cdsc$w_length], 
3; 457 1186 4 Wes esc Cdsc$a_pointer]); 
: 458 1183 4 IF ke desc Cdsc$w ztength 
3; 459 1184 4 THEN IF .keydesc [ sche pointer} NEQ 0 
; 460 1185 4 THEN deal loc_mem {Reydese dsc$w_length], 
3; 661 1186 4 -keydesc Cdsc$a_pointer])); 
: 462 1187 3 END; 
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1188 : 
1133 RETURN. ‘status 
1190 7 END; 
OFFC 00000 .ENTRY LBRSGET_ HELP, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0961 
SE FBFG CE 9€ 0000 MOVAB =1036(SP) : 
50 04 BC p60 000 MOVL § @CONTROL_IND SEX, RO + 1031 
00006 0008 BSBW  VALIDATE~CTL ; 
01 50 Fs OO0E BLBS § STATUS, T$ : 
4 00011 RET : 
50 00006 CF DO 00012 1$: MOVL  LBRS$GL_CONTROL, RO + 1037) 
03 0A BO 91 0001 CMPB Ss @10(ROS, #3 + 1043. 
08 13 0001B BEQL = $$ ; 
50 000000006 8F 00 0001D MOVL § #LBRS_NOTHLPLIB, RO + 1044. 
04 00024 RET : 
3 6C 91 00025 2$: CMPB (AP), #14 + 1046 
08 1B 00028 BLEQU : 
50 000000006 8F pO 000¢A MOVL #LBRS_INVNAM, RO + 1047) 
50 OA AO 000000C6 BF C1 00032 3$: ADDL3 #196, 10(RO), RO > 1055. 
56 14 AC DO 00038 MOVL KEYIDESC, R6 > 1057. 
50 02 AO 3C 0003F MOVZWL 2 (RO), RO : 
50 07 00043 DECL ; 
ub 10 00 ED 00045 CMPZ7V #0, #16, (R6), RO ; 
08 15 OO04A BLEQ 4$ : | 
50 000000006 8F D0 0004¢ MOVL #LBRS_INVKEY, RO > 1059. 
04 00053 RET F 
50 6C 9A 00054 4$: MOVZBL (AP), RO + 1065 
50 04 C4 00057 MULL2 4, RO ; 
50 04 C€O 0005A ADDL RO : 
FEOO CD 6C 50 28 0005D MOVC RO. CONTROL_INDEX=4, HELPDATA ; 
00 6E ed 00 2c 90063 MOVCS #0. (SP), #0, #80, KEYDESCRIPTORS > 1066 
6E 50404548 8F DO 0006D MOVL $#1347175752, HELP_HELP + 1067 
FEOS CD 10 AE 9E 00074 MOVAB HELPINFO, HELPVECTOR+4 > 1071 
00 6£ 00 2C OO07A MOVCS #0, (SP), #0, #92, HELPINFO : 1072 
10 AE 00081 F 
05 6C 91 00083 CMPB (AP), #5 : 1077 
OE iF 90086 BLSSU5$ ; 
16 AC d5 0088 STL 20(AP) ; 
09 13 00088 BEQL «=séSS$ ; 
66 8 0008D TSTW (R6) : 1078. 
05 13 O008F BEQL S$ ; | 
04 Ab D5 90091 TSTL 4(R6) : 1079 
10 12 00094 BNEQ 6$ : 
13. AE 02 88 00096 5$: BISB2 #2, HELPINFO+3 : 108 
016C «CCE 04 80 90094 MOVW #4. MYKEYIDESC : 108 
0170 «CE 6E 9E 0009F MOVAB HELP_HELP, MYKEYIDESC+4 : 108 
if; 11 OO00A4 BRB B : 107 
13. AE 0 BA OOA6 68: BICB2 #2, HELPINFO+3 : 108 
51 0170 CE 9E OOOAA MOVAB MYKEY VIDESC4, R1 : 108 
50 66 3C O00AF MOVZWL ; 
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00006 30 0008 BSBW  GET_M ; : 

01 i 8 0086 BLBS oe TUE. 7$ : : 

4 00088 RET : ; 

016C ce F 00089 7$ PUSHAB MYKEY1DESC + 1089 : 

$ DD 000BD PUSHL R : : 

0000v CF 02 FB OO0BF CALLS #2, MAKE_UPPER_CASE : : 

FEIG »= CD 016C cE 9E O00C4 8S MOVAB MYKEYIDESC, HECPVECTOR+20 : 109 : 

08 00 6E 7 00 2c 30005 MOVC #0, (SP), #0, #8, HELPINFO+68 + 109 : 

02 6c 91 0002 CMPB CCAP), #2 + 1094 : 

OA ‘iF 000D BLSSU : : 

08 aC b3 0007 TSTL (AP) : : 

05 13 OOODA BEQL : : 

08 BC 05 000DC TSTL § @LINE_WIDTH : : 

07 12 O00DF BNEQ : : 

30 AE 50 8F 9A OO0E1 9S MOVZBL #80, HELPINFO+32 : 1096 : 

16 11 000E6 BRB : | : 

50 08 BC DO 000E8 10$: MOVL LINE WIDTH, RO + 1098. ; 

00000100 BF 50 D1 OO0EC CMPL RO, #256 : : 

05 15 000F BLEQ : : 

50 0100 8F 3C 000F5 MOVZWL #256, RO ; : 

30 AE 50 DO OOOFA 11$: OVL RO, HELPINFO+32 ; : 

1¢ AE 6C AE OF OO0rE 12$:  MOVAB HELPINEOT92. HELPINFO+12 ; 1099 : 

18 «AE 1¢ AE 00 0010 MOVL §HELPINFO+12, HELPINFO+8 + 1100. : 

14 AE 30 AE DO 00108 MOVL HELPINE O+3¢ HELPINFO+4 3 1101! : 

0050 «BF 00 6E abe 00 2c 90100 MOVCS #0, (SP), #0, #80, FOUNDKEYS ; 1102, : 

34 AE 01BC CE 9E 00117 MOVAB FOUNDKEYS, HELPINFO+36 + 1103) : 

04 AE 2E2E2E2E 8F DO 0011D MOVL  #774778414, DOTS + 1109) ; 

0170 OE 016C «CE 06 AE 03 39 00125 MATCHC #3, DOTS, MYKEYIDESC, @MYKEY1DESC+4 ; 1110 : 

O3 13 OoleF Beal 136 : | : 

53 03 pO 00131 MOVL #3, R3 : ; 

53 03 ce 00134 13$: SUBL2 #3, R3 : | : 

24 1 00137 BEQL 148 : 1112) ; 

50 016¢ CE 3C 00139 MOVZWL MYKEYIDESC, RO + 1113) ; 

50 0170 CE CO 00136 DDL2  MYKEY1DESC+4, RO : : 

50 03 C2 0014 SUBL2 #3, ; : 

50 53 D1 00146 CMPL PTR, RO 3 : 

12 12 00149 NEQ 14$ : ; 

13. AE 40 8F 88 00148 BISB2 #64, HELPINFO+3 : 1175) : 

54 AE 02 CE 00150 MNEGL #2, WILDBITS : 1120) : 

58 OA 01 CE 00154 MNEGL #1, WILDBITS+4 > 1121 : 

016C CE 03 A2 00158 SUBW2 = #3, MYKEYIDESC ; 1124, : 

38 AE 6¢ 9A 90190 14$: MOVZBL (AP), HELPINFO+40 > 1130) 3 

8 AE 4 C2 00161 SUBL2 #4, HELPINFO+40 ; | : 

05 13. AE 06 £0 00165 BBS 6; HELPINFO+3, 15$ ; 1133, : 

04 13, AE 01 £1 O016A BBC #1. HELPINFO+3, 16$ : 113 : 

38 AE 01 00 0016f 15$: MOVL #1, HELPINFO+46 > 1134 | ; 

55 3g AE DO 901 3 16$: MOVL HELPINFO*40, R5 : 1136. ; 

02 ; D1 0017 CMPL R , | é 

4 19 QO17A BLSS 268 ; | ; 

52 02 00 0017¢ MOVL #2, I > 1137. : 

6A 11 0017F BRB 25$ ; | ; 

54 016C cede 7E 00181 17$: § MOVAQ KEYDESCRIPTORS( 1, R4 ; 1140, : 

53 FE10 CD42 00 00187 MOVL HELPVECTOR# 16 1), CURKEYDESC 1142 | : 

18 13 0018D BEQL $ > 1146 | : 

63 B5 0018F TSTW (CURKEYDESC) > 1145 | : 
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04 0023F 31$: RET 3; 1190 
; Routine Size: 576 bytes, Routine Base: $CODE$S + 0103 
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; 467 1191 1 ZSBITL. ‘Routine help_check_mtch'; 
; 468 1138 1 ROUTINE help_check_mtth (enfry, user routine, index_desc, helpdata) = 

; 469 119 BEGIN 

: o5f 1198 5 i 

: 47 1196 i This routine is called for every entry in the Library to see 

$ ot? 1138 the entry matches the wild card key descriptor passed to eSescer HELP. 

: 475 1199 i INPUTS: 

: 477 1504 i entry Address of entry descriptor in index 

; 478 1 oe ' user_routine Not used 
: 479 120 ‘ index_desc Not used 

: res . Be helpdata Address of data vector created by lbr$get_help 

: 468 1306 i 1 the current entry matches the keyl in the help data vector, call 

; 48 120 ! help_do_key! to process it. 

: 486 1208 : 

gis 

: 487 1211 2 MAP 

; 488 isi¢ entry : REF BBLOCK 

: 489 121 hetpdata : REF VECTOR C,LONG), 

3 rh iste index_desc : REF BBLOCK; 

: 49 1216 BIND 

; 49 1217 2 helpinfo = .helpdata ky info] : LOCK ointer to information structure 

; rho 1918 § keyldesc = helpdata Chl p$k gee at : RE “BBLOCK; istare of key descriptor addresses 

: 496 1220 2 LOCAL 
: 497 1221 2 match desc : BBLOCK Cdsc$c_s_bin], 
; 498 1SS6 2 match buf : BBLOCK puoree Rafkeylen), 

: 499 122 entrydesc : BBLOCK Cdsc$c_s_bln 

: 300 1358 3 

; 208 1ss8 Check for wild card match with fmg$match_name 

: 504 1228 entrydesc bdscou. Length] = .entry Cidx$b_keylen); 

; 44 1$¢? entrydesc Cdsc$a_pointer] = entry Cidx$t “keynamed; 

: 507 1231 2 match_desc Cdsc$u_ Length] = 0; 

3 4 1S36 matchdesc Cdsc$a_pointer) = match_buf; 

: 219 Sze 3 make_upper_case ( entrydesc, match_desc ); 

: 512 1236 IF fmg$match_name (.match desc Cdsc$w_length], .match_desc Cdsc$a_pointer] 

s Sis 1237 eyidesc Cdst$w_length], .keyldesc Cdsc$a_ ointerd) 

: 318 \¢36 fl pertore (help_do _key1 (entrydesc, entry Cidx$b_rfaJ, .helpdata)); 

: 516 1520 1 END; ! Of help_check_mtch 


O3FC 00000 HELP_CHECK_MTCH: | 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9 2 1192, 
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52 


88 bytes, 


SE 

10 AC 
56 

6E 

04 AE 
FC AD 
0000v CF 
53 

53 

53 

52 

10 

0000v CF 
03 

50 


Routine Base: 


1 
FF70 = CE PF 0 6 
14 ¢ 8 
4 AC 44 f 
§ A6 9B 3 1 
AG 9E 14 
F AD Be 19 
0 AE 9E if 
F AD 9F 
04 AE OF 4 
0 Fe 82 7 
04 ; 0 ; f 
60 Sc G0085 
FC AD 00 00036 
F8 AD 3C QO03A 
00006 30 0003E 
50 E9 00041 
10 AC 0D 00044 
56 0D 44 984 
08 ag 9F 00049 
03 FB 0004C 
50 €9 00051 
01 DO 00054 
04 00057 


SCODES + 0343 


Nm 
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16-Se 
44-Sep-1984 


PM 


-1984 01:50: VAX-11 Bliss-32 V4.0-7 
Or19RG FOi89:88 | NIRKSUMOMASTER EVGA SRC SCE TNELP.03251°" 


MO -144(SP) 
ADDL #20 IHELBOATA, R2 


MO 

MOVZBW ss): ENTRYDESC 

MOVAB R6), ENTRYDESC+4 
TCH “DESC 


PUSHAB ENT Snags 
CALLS We, MAK _UPPER_CASE 
MOVL R 
MOVL (Re) RS 
MOVZWL ), R4 
OVL  MATCH_DESC+4, R3 
MOVZWL TCH"DESC, R2 
SBW = FMGSMATCH_NAME 
BLBC ~=_-«aRO,_-*18 
PUSHL HELPDATA 
PUSHL 
PUSHAB 


ENTRYDESC 
CALLS #3, HELP_DO_KEY1 
BLBC STATUS, 2$ 
MOVL #1, RO 


Fi | 
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ZSBITL ‘Routine help_check_prtl'; 

ROUTINE help_check_pr€l (entry, user_routine, index_desc, helpdata) = 
lee 

' 


i This routine is called for every entry in the index to determine if the 
entry satisfies a partial match. 


i INPUTS: 
entry address of current entry in the index 
user_routine not used 
index _desc not used 


i The entry is checked for a partial match and help_do_key! is called 


' 

' 

' 

' 

: 

helpdata address of help data vector set up by Lbr$get_help 
' 

if there is a match 

| 


MAP 
entry : REF BBLOCK 
helpdata : REF VECTOR C,LONG); 


IND 
helpinfo = .helpdata Egon info] : BBLOCK, ‘Pointer to information structure 
keyldesc = helpdata Chip$k_Keyldesc] : REF BBLOCK; '!Start of key descriptor addresses 
LOCAL 
entrybuf : BBLOCK Clbr$c_maxkeylen], 
entrydesc : BBLOCK Cdsc$c_s_bin); 


| 
entrydesc Cdsc$u_tength) = entry Cidx$b_keylend; | 
} 


PAGOSA MININANIVNIVIUVIVIVILE SELL LLL LE 


io 


entrydesc Cdsc$a_pointer] = entrybuf; ! Temporary store to raise case 
CHSMOVE (.entry Cidx$b_keylen], entry Cidx$t_keyname], entrybuf); 
make_upper_case (entrydesc, entrydesc); 


IF CHSEQL (.keyidesc Cdsc$w_léngth], entrybuf, ‘See if it_is a partial match 
— -keyidesc Cdsc$w_length], .keyldesc Cdsc$a_pointer)) 


, | 
BEGIN 
entrydess Cds Se_peinter) = entry Cidx$t_keyname); ; 
IF Geletarte er L_pmatch] = .helpinfo Chip$l_pmatch] + 1) EQL 1 'If this is first partial match 


CHSMOVE (dsc$c_s_bln, entrydesc, helpinfo Chlp$b_pmtdesc]);! then remember descriptor for it 
CHSMOVE (rfa$c~ length, entry Cidx$b_rfaJ, helpinfo Chip$b_pmtrfaJ); 


END; 
poe rare (help_do_key1 (entrydesc, entry Cidx$b_rfa], .helpdata)); 
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RETURN true 
ND; ! Of help_check_partl 
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LBR_GETHELP Extract help text from Librar 16-Sep-1984 01:50: 
vee=000 Routine help_check.prtl . 132800=1 38s 93:39: 


O1FC 00000 HELP_CHECK_PRTL: 
. WORD 


FF7 cE 9 MOVAB 
| "SB he ee 
4 AB D 8 oe MOVL 
6 AC 3 F MOVL 
6E ¢ Aé6é 9B 00 13 MOVZBW 
04 af 0 AE 9E Bat OVAB 
6 6«OA A 1 MOVZBL 
08 AE 07 6 “ 28 000 ve 
« HN Bt Ba, 
0000V gf 02 F 09 8 CALLS 
A MOVL 
046 ~=«2B0 08 ie 00 4 CMPC3S 
,etle Biter. Bl 
50 ZC A 1 ef 6 4) ADDL 
C (A? 0 DO 00046 MOVL 
i so 1 dopek at 
30 AZ? 6E 08 38 O004F MOVC 
380A? 66 06 0054 MOVC 
0140 8F 8B 00059 1$ PUSHR 
08 Ag 9F 00050 PUSHAB 
0000v CF 03 FB 00060 CALLS 
03 50 €9 00065 BLBC 
50 01 DO 00068 2$: MOVL 
04 00068 3$: RET 


; Routine Size: 108 bytes, Routine Base: S$CODE$ + 0398 


96 VAX-11 Bliss-32 V8 0-748 Page 2 
DISKSVMSMASTER: CLBR.SRCIGETHELP.B32;1 (6 


3,R4,R5,R6,R7,R8 


§p 
R8 


RYDESC 
ENTRYDESC+4 
. ENTRYBUF 


St 
#3, HELP_DO_KEY1 
STATUS, 3$ 


Sete Se Se Se Se Be Se Ge Se Se Ge Se Se Se Fe FS Be Se Ge Se Se Se Fe Se Se Ge Se 


LBI 
vO. 
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v04=000 Routine move_key 14-Sep-198 Ba $2 39 8 DISKSVMSMASTER: CLBR. she GETHELP.B32; s a OS) 

: 3h 1394 1 ROUTINE moverkey <nelsdeta’ keyd ; 
; move_key (helpdata, keydesc, spaces) = ‘ 
: 3he 1595 2 BEGIN ; . 
; 574 1 38 ++ : 
are 38 C he key into the buff 
: ' Copy the key into the buffer ° 
: 377 1399 3 i : 
; 578 1300 ! Inputs: : 
; 579 1301 ' . 
; 580 1 8¢ ! helpdata address of help data vector set up by Lbr$get_help ‘ 
s Se) 130 ! keydesc address of string descriptor for key ‘ 
3 286 : Be spaces number of spaces to leave after her’ ’ 
; 584 1306 ! Outputs: ; 
3 Seo 1307 ‘ : 
3; 3a 1308 ! Key is copied into buffer. New Line issued if not enough room. ; 
; 587 1309 ! ; 
; 588 1310 l—= ; 
; 589 1311 ; 
; 590 ts MAP ’ 
3; «(391 131 helpdata : REF ecto C,LONG), ‘ 
: 236 1314 keydesc : REF BBLOCK ‘ 
s 39 1315 ; 
; 594 1316 2 LOCAL : 
3 399 1317 2 newlen; ‘ 
; 596 1318 § ‘ 
; 597 1319 BIND : : : 
3 44: 1330 § helpinfo = .helpdata Chlp$k_info] : BBLOCK; : 
; 600 1356 2 newlen = shal pints Chip$l_nchars] + .keydesc Cdsc$w_length] + .spaces; : 
; 601 132 IF .newlen GTRU .helpinfo Chip$l_ width) : 
; one 1324 THEN : 
; 60 1325 BEGIN ; : 
; 604 1326 ; If _ .keydesc Cdsc$w_length] GTRU .helpinfo Chlip$l_width) : 
; 605 1327 THEN ; 
; 606 1328 4 BEGIN . 
; 607 1362 4 ! . 
; 608 1330 4 ' The key is too large to fit on a line by itself so wrap it : 
; 609 1331 4 ! by printing as much as will fit in current buffer, and” print : 
; 610 1336 4 ' rest on the following Line. ; 
3 6t1 1333 4 ! : 
3 612 1334 4 LOCAL ’ 
3: 613 1335 4 excessdesc : BBLOCK Cdsc$c_s_bln], 3 
; ol% 1336 ? leftover_ en: : 
; 616 1338 4 leftover_len = .helpinfo Chip$t gutéth] = ghelpintp Chlpst nchars) - 2; 3 
; 617 1339 4 excessdesc dsc $u ~length) = -keydesc Cdsc$w_length] - .leftover_len; : 
; 618 1340 4 oucessdess dsc$a_po inter] = .keydesc Cdsc$a_ ot nter] + .leftover_len: 3 
3; 619 1341 4 helpinto t hlp$l_cirptr) = CHS MOVE (. leftover_ -keydesc Cdsc$a_ pointer), | 3 
3 630 1366 4 ehelpinfo bhtps l curptr) 355° 3 
: 621 1343 4 helpinfo Chlp$l_nchars) = seelpint o Chip$l_width): 3 
; ose 1344 4 perform (print_Tine (.helpdata : 
: 6 1345 4 move_key (.helpdata, excessdesc, .spaces); 3 
3: 624 1346 4 N 3 
3; 625 1347 3 SE 3 
; 626 1348 4 BEGIN ; : ; 3 
3; 627 1349 4 perform (print_line (.helpdata)); ! Print what we got 3 


] 


M 4 | 
THELP Extract help text from Library 16-Sep-1984 01:50: VAX-11 Bliss-32 V4.0-74 Page 22. LB 
Routine move_key 14-Sep-19 4 9:39:98 DT SKSUMEMASTERSCLBR. SRCIGETHELP.832;1 . 3 | VO: 
: 6 $ ! 3} pove key (,helpdata, .keydesc, .spaces); ! print what didn't fit on it's own Line | 
; 6350 1 ¢ END 
; 631 135 SE | 
; 6 ¢ 1354 BEGIN 
3 6 1355 helpinfo Chip$l_nchars] = .newlen; | 
> 634 1356 helpinfo Chip$l_curptr] = CHSMOVE ( keydenc Cdsc$w length), -keydesc Cdsc$a_pointer], 
; 635 1357 -helpinfo Chlp$l_curptr]) + .spaces; 
; 636 1328 END; 
> 637 1359 RETURN true 
; 638 1360 1 END; ! Of move_key 


OOFC 00000 MOVE_KEY: 


WORD Save R2,R3,R4,R5,R6,R7 3 1294 
SE 08 ¢2 0000 SUBL2 #8, SP : 
57 04 AC 00 0000 MOVL HELPDATA, R7 3 
56 04 A? DO 00009 MOVL  4(R7), R6 : 

52 08 AC b0 0000D MOVL  KEYDESC, R2 + 1322 
50 62 3C 00011 MOVZ2WL (R2), RO : 
50 10 A6 CO 00014 ADDL2  16(R6), RO ; 
50 0C AC C0 00018 ADDL2 SPACES, NEWLEN ; 

20 Ab 29 D1 0001C CMPL  NEWLEN. 32(R6) + 1323 
53 1B 00020 BLEQU 3$ ; 

20 Ab 62 10 00 €D 00022 CMPZ7V #0, #16, (R2), 32(R6) + 1326 
34 if 00028 BLEQU 1$ ; 

50 20 Ab 10 ABC 000¢A SUBL3 16(R6), 32(R6), RO : 1338) 
50 02 ce 00030 SUBL2 #2, LEFTOVER_LEN ; 

6E 62 0 A’ 00033 SUBW LEFTOVER LEN; (R2), EXCESSDESC : 1339 

04 AE 04 8240 9E 00037 OVAB @4(R2)CLEFTOVER_LEN], EXCESSDESC+4 + 1340 

0C 86 04 Be 50 28 0005p MOVC LEFTOVER LEN, @%(R2), @12(R6) + 1342 
OC Ab 53 D0 0004 MOVL R3, 12(RB) ; 

10 A6 20 Ab dO 00047 MOVL  32(R6), 16(R6) $ 1343 

57 DD 0004C PUSHL R7 : 1344 
0000v CF 01 FB 00046 CALLS #1, PRINT_LINE ; 
50 €9 0005 LBC STATUS, 5$ ; 

0c AC DD 9006 PUSHL SPACES > 1345) 

04 AE 9F 00059 PUSHAB EXCESSDESC ; | 

OF 11 0005¢ BRB 2$ ; | 

57 DD 0005E 1$ PUSHL R7 + 1349 

0000v CF O1 FB 00060 CALLS #1, PRINT_LINE : 

20 0 €9 00065 BLBC STATUS, 5$ : 

0c AC OD 00068 PUSHL SPACES : 1350. 

2¢ DD 00068 PUSHL R ; 

57 DD 00060 2$ PUSHL R 3 

8D AF 03 FB O0GF CALLS #3, MOVE_KEY ; 

10 11 000 3 BRB 43 :1 23 | 

10 Ab 50 0 07 3$: MOVL. NEWLEN, 16(R6) > 1355 

OC B86 04 B2 6¢ 0079 MOVC3 (R2), @ (83), @12(R6) : 1357) 

OC Ab 0c BC4 E 007F MOVAB asPACES R3J, 12(R6) F 

50 01 p 0085 4$ MOVL #1, R ; 1359 

4 00088 5$ RET ; 1360 | 


; Routine Size: 137 bytes, Routine Base: S$ CODE$ + 0407 


N 4 | 
vOou=000""- Routine move key nr” VRSep=18Bs PDi8P98 DTS cAvSmASTenscLBA: sRCSGETHELP.032;1°9° (9). 
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ibe2000 outine help_do_key1 . 12-Sep-19 4 93:39:98 DL KSVMEMASTERSCL BR. SRCIGETHELP.B32: 1 . BS 

> 640 1361 1 XSBITL_ ‘Routine help.do_key1'; | ; 
; 641 1 6 1 ROUTINE help_do_key] Tenfrydesc, entryrfa, helpdata) = : 
: 808 i3eq 5 See ; 
: 644 1365 i This routine fully processes help text given the key] has been looked ; 
; oF : $6 : up successfulcy. : 
; 647 1368 i Inputs: | 
: 649 1370 i entrydesc Address of string descriptor for key! | ; 
; 650 1371 : entryrfa Address of rfa for key! ; 
s $3) : Ie } helpdata Address of help data vector set up by lbr$get_help : 
PL BSF] enone : 
: 655 1376 i Help information (if any, is output) : 
: 656 1379 3 i A . ss | 
ei bs gen 
: 659 1380 2 ROUTINE copy_key (helpdata, desc) = | ; 
gp i ye eu 
: 662 1383 i This routine allocates dynamic memory, copies the key name into it, : 
; 663 1384 3 ! and fills in the appropriate descriptor in the array of descriptors : 
; 664 1385 ! pointed to by helpinfo Chip$l_keylist]. 3 
; 665 1386 ! : 
: Ge? 1383 3 | Puts: | 
; 668 1389 3! helpdata Address of help data vector set up by lbr$get_help : 
; 669 1390 3! desc Address of string descriptor for key 3 
; 670 1391 3! 3 
3 of) 1338 ; Outputs: : 
: 67 1394 i memory is allocated and correct descriptor is filled in. : 
3; 674 1395 3! 3 
; 675 1396 : le= 3 
; 676 1397 3 
; ne 1399 MAP | 
: 679 1400 helpdata : REF VECTOR C,LONG), | : 
; 680 1401 desc : REF BBLOCK; : 
; $52 1208 BIND | 
: 683 1404 helpinto = -helpdata Chlp$k, info] : BBLOCK, ; 
: 684 1405 keydesc = .helpinfo Chip$l Keyl st 3 
$ os? 1o08 + (,helpinfo CAilp$i_curlevel] - 1) * dsc$c_s_bln : BBLOCK; : 
: 687 1408 3 LOCAL ; 
; 688 1409 ptr. : 
3 ret 8 nchars; : 
> 691 a nchars = 0; : 
: 69 141 IF .helpdata Chip$k_userout] EQL 0 : 
3 or 1613 THEN nchars = .Relpinfo Chip$l_curlevel] * hlip$c_keylogtab; : 
: 695 1618 IF .keydesc Cdsc$a_pointer] NEQ 0 ; : 
: 696 141 THEN dealloc_mem (.keydesc Cdsc$w_length], !Deallocate old string : 


| 5 
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yOe=000 Routine help_do_key1 . aaa 1 93:39:98 DLEKSVMSMASTERSLLBR. SRCIGETHELP.832: 1 . B ve 
: 697 1318 keydesc [dsc$a_pointer]); 
; 698 141 pertore (get_mem oe 4 Cdsc$u_tength] * .nchars, ptr)); '‘Allocate memory for string 
: $99 1420 eydesc (dsc$Sw_length] = .desc (Cdsc$w_length] + .nchars; 
; 700 1421 keydesc [dsc$a_pointer] = .ptr; 
; 701 14 § IF .nchars NEQ !Pad with spaces if needed 
; 70 14 THEN ptr = puss JUL (ZASCII * *, .nchars, .ptr); 
: 70 1426 CHSMOVE (.desc [dsc$w_length], .desc Cdsc$a_pointer], .ptr); !Copy string in 
; 7046 1425 RETURN true 
3 705 1426 END; !Of copy_key 


OFFC 00000 COPY_KEY: 


“WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1380) 

5E 04 ¢2 0000 SUBL2 #4, SP : 

. 04 AC DO 0000 MOVL HELPDATA, R3 > 1404. 

5} 04 a3 DO 00009 MOVL  4(R3), Ri : | 

50 14 Al DO 0000D MOVL 20(R15, RO > 1406 | 

52 24 B140 7 00011 MOVAQ @36(R1SCROJ, R2 ; | 

52 08 C2 00016 SUBL2 #8, R2 ; 

54 D4 00019 CLRL  -NCHARS > 1412 

0c A3 DS 0001B TSTL = 12(R3) + 1413) 

05 12 OOO1E BNEQ =s«w1$ : | 

54 16 «Al 01 78 00020 ASHL #1, 20(R1), NCHARS + 1414) 
04 A2 D5 00025 1$: TSTL 4 (R2) : 1616) 

OA 13 00028 BEQL 46s $$ : | 

51 04 ag DO 0002A MOVL  4(R2), R1 + 1617) 

50 6 3¢ 000¢E MOVZWL (R2), RO : | 

00006 30 00031 SBW  DEALLOC_MEM : | 

51 6E 9E 00034 2s: MOVAB PTR, R1 > 1419) 

57 08 AC DO 00037 OVL DESC, R7 F | 

56 67 3¢ 00038 MOVZWL (R77), : 

50 56 54 C1 O003E ADDL3 NCHARS, R6, RO : | 
00006 30 00042 W TM : 

22 50 €9 0004 BLBC STATUS, 4$ : 

50 56 54 C1 00048 ADDL3 NCHARS, R6, RO > 1420. 
62 50 BO 0004C¢ MOVW RO, (Rd) : 
046 Ad 6E DO 0004F MOVL PTR, 4(R2) > 1421, 

54 D5 00053 TSTL § NCHARS > 1422 
0A 13 00055 Beal Ss3 : | 

54 20 6E 00 2c 00057 MOVCS #0, (SP), #32, NCHARS, @PTR : 1423 | 
00 BE 9005¢ ; 

6E DO 0005 MOVL. 3, PTR : | 

00 BE 04 87 56 28 00061 38: MOVC3 RO. a4(R7), aPTR > 1424, 
50 01 DO 00067 MOVL #1. RO : 1425 

04 0006A 4$ RET > 1426 


; Routine Size: 107 bytes, Routine Base: S$CODES + 0490 


AEA eI MAD ee SES TE Se a NAAN RPE Se OEE PLL a ee RE eR I a oe CR J , r 
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; 707 1427 ZSBTTL ‘Routine find -relp-ke 

; 708 14 8 ROUTINE find_help_key™ (he sdeta: helplevel) = 

; 709 14 BEGIN 

; 710 1430 l++ 

: ay +2 1 This recursive routine does all the work of finding and printing help text. 

3 rg 14 g i Inputs: 

; «716 1434 ! 

: 715 1435 helpdata Address of help data vector set up by lbrS$get_help 

s 16 MR ’ 

: 717 1437 ie 

; 718 Ub 

; 719 1439 P 

: 720 1440 helpdata : REF VECTOR C,LONG); 

s fel 1441 

3 ise 1236 BIND 

3; fe 144 header = .lbr$gl_controlClbr$l aeretr ss wee 

3: 724 1444 helpinfo = .helpdata Chl *. rored BLOCK 

3; 725 1445 keyerfa = _helpinto ee tal, 

: 726 1446 3 {Gtlag pinfo Ch 3st. Mere attags) : BITVECTOR; 

s v2? 1447 

s 72 1448 LOCAL 

; 729 1449 expand_record, 

3; 730 1450 ; curkeydesc : REF BBLOCK 

3 751 1451 saverfa : BBLOCK [rfa$c. length], 

: ree oe6 3 level, 

3; 7 145 ; curchar, 

3; 734 1454 helpkey, 

; £99 1455 3 gualseen, 

; 736 1456 ; is_key, 

3; 737 1457 ch_result, 

: 738 1458 3 keylength, 

; 739 1459 3 wild path, 

; 740 1460 ; savelastrfa : BBLOCK trtase: Length], 

3; 741 1461 lastqualrfa : BBLOCK (Crfa$c_length], 

: 762 1066 3 tokencdesc : BBLOCK Cdsc$c_§ bin], 

: 743 1463 3 tokendesc “BBLOCK Cdsc$c_s Bin], 

3 744 1464 ot ae BBLOCK Cdsc$c_s_bIn], 

: ree 1665 keystring : BBLOCK ChipSc"maxrecsiz); 

3 747 1467 3 IF .header(lhd$l_dcxmapvbn] NEQ 0 

; 748 1468 3 THEN : 
; 749 1469 expand_record = true | . 
: 750 1470 

s 731 1471 expand_record = false; 

: P36 1o%6 . 

. 147 IF NOT .helpinfo Chip$l_readsts] 'If already at end of file 

: 756 1474 THEN RETURN true; 

3: 755 1475 

; 756 1476 : } - : oS 

s for 1477 ! Read records until end of module or exit by finishing 

; 758 1478 : 

3; 759 1479 

3; 760 1480 qualseen = (aise: 

: 761 1481 peyes = help ‘Preset level 

; 76 be info Chips Tedetevet? = shetpt evel; 'Set last level looked at 

; 148 VE (rfa$c_Tength, helpinfo [ (p$b_[stkeyrfal, 'Save Last key rfa 


ae 
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1647000 Routine find _help_key . 14-Sep 71982 93; 39: 98 DISK SvMEM TER: VaR’ She GETHELP.B32; ? oe 8} 

; 766 1484 epracpets ret) : 
3 16? 1? 5 token2desc Cdsc$a_pointer] = keystring; ‘preset address part of descriptor : 
; 767 14 5 4 WHILE ( ; 
; 768 1488 4 CHSMOVE ib ge Length. helpinfo Chip$b_readrfa], saver : 
; 168 1065 ? IF ogee Blpst ghgndstss « = read_record (helpinfo Ehioéb. readrfa), recdesc)) ‘ 
3 expan 3 
3 wi 1491 4 THEN helpintothtpsi_ readsts] = expand_it( recdesc ); ; 
; 77 1636 4 -helpinfolhlp$l_readstsJ : 
3 «7 1495 4 j : 
3: 774 1494 & DO BEGIN : 
s 77 1495 4 3 
; 776 1496 4 curchar = 0; 'Preset character ; 
: 777 1497 & curkeydesc = .helpdata C.helplevel - 1 + ie keyldescJ; : 
; 778 1498 4 IF .helplevel GIR .helpinfo hlp$l_realkeys 'If key not really present : 
; 7 1499 4 THE curkeydesc = 0; : 
; 780 1500 4 IF purecreees NEQ 0 ; 
; 781 1501 5 THEN B 3 
; 782 1308 5 curchar = CHSRCHAR (, curkeydesc Cdsc$a_pointer]); ‘Get Ist char of ey : 
; i? 1287 : i eae EQL “ASCII '/* ! and if its a sles (qualifier) : 
; «785 1505 5 IF lamugers Cdsc$w_length] EQ. 1 ! and if only one char in name (slash) > 
: 786 1506 5 nen 3 
s 7387 1507 6 3 
; «788 1508 6 ee ! and its the first key this module | ; 
: 789 1509 6 Then : Shove: tt esc length, saverfa, key2rfa); ' then save it away for printing opt. : 
: 790 1510 6 : then that's all folks : 
; 791 1511 6 EN +t A + 
; a 1316 ? p Est ie Chlip$v_qualhelp) = true; ! otherwise flag qualifier help : 
3 794 1514 4 | ; 
; 795 1515 5 IF yi Fy mg: on_tine + ja recdesc, level, tokendesc)) 'If Line has a key on it ; 
: 796 1516 4 elpinte Alp$v -quathelp ' and its qualifier help : 
; 797 1517 4 AND -helpinto Chip$v_qualine ! and we found a qualifier Line $ 
; 798 1518 4 AND NOT Moun i and we haven't seen a qualifier Lately : 
; 799 1519 5 THEN B : 
: 800 1520 5 cisnove (rfa$c_length, saverfa, lastquairfa); 'Save RFA of Last qualifier $ 
; 801 lot 6 Ealscen = true; ! and flag we have seen a qualifier : 
; 802 1356 4 $ 
; 803 1523 4 : 
: 804 1524 4 IF : 
: 805 1525 4 “AN “eurkeydesc NEQ 0 3 
; 806 1526 5 THEN BEGIN : 
: 807 1527 § keylength = -Curkexdesc Cdsc$w_length] 'Set Lengeh of key 3 
; 808 1528 7 IF yf ckeylength GTR .tokendesc Cdsc$w slenatha> ' but if ey greater than key in text 3 
; 809 1262 6 -wildflag C.helplevel - 1] i and this ey, is not wild 3 
; 810 1530 5 THEN keylength = 0; i then no match : 
: $12 1833 é ELSE’ Length = 0; 
: eylength = 3 
5 518 1333 4 : 
; «6814 1534 4 IF .is prey ‘If hey found on Line 3 
: 815 1535 4 ANB .key2rfa EQ. 0 ! and its the first key this module 3 
: 816 1338 4 wee S cHShOvE® (rfa$c_length, saverfa, key2rfa); i then save it away for printing options 3 
; 817 1537 4 chr ‘Preset for no match 3 
; 818 1538 4 IF faehie "Entpsy_k eyline) ilf we found it on a key Line : 
; 819 1539 4 helpinfo tnt v_qualhelp] = false; ! then make sure we treat as one 3 
; 820 1540 4 IF .is_key ‘If there is a key on the Line 


F § 
xtract help text from Library 16- ae 1:30:06 VAX-11 Bliss-32 V4.0-7 3 
outine find_help_key 14-Sep-1984 12:37: DISKSVMSMASTER:CLBR. src GETHELP.B32; a9 (9) 
oe welotots ches ye ol}hetp2 } end ve fe doing att help 
v elplevel ' an s the r eve 
AND a upper_case a wee token2desc) ! (make it seer cane! 


AND (CC(TF . her lengen E 


ELSE (ch result = CHSCOMPARE (.keylength nd gps 
ekeylength, .curkeydesc fase a _pointer])) EQL 0)) 

OR “IF (.curchar Fa ZASCII fs! 

AND helpinfo Chlp$v_oualine]) 

OR -keylength EQL 0 

THEN false 

ELSE fmg$match_name (.token2desc (Cdsc$w Lengthy keystring, 
ekeylength, .curkeydesc Ldsc$a_pointerJ))))5) 


We have a winner, process it 


THEN BEGIN 
recdesc Cdsc$w_lenath] = .recdesc + length] - ‘Adjust descriptor 
(.tokendesc Edsc$a qbointerd - !in case 
-recdesc poscee_ po inter)); ‘we copy_key it 
recdesc aSoree sgergeers ® -tokendesc Cdsc$a_pointer i 
IF .ch_resul 'If we_got here due to a match 
THEN ch_ nosutt = reviccager~* ts token2desc Cdsc$w_length], keystring, 'then check for real mat 
Length, a ap “Cdsc$a_pointer]); 
CHSMOVE (rfa$c ~length. netpsitor Chip$b_readrfa ‘Save RFA of Last found key 
© ChLgSb_ pC 
IF NOT aheto tats Chipsye pevie AS 
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848 _ THEN he ginto Ch pstic surleves = | el 
9 wild_path = (.ch_ roey ) OR ‘Seleiela thtegy. aithetol®: etormies if wild key 

B20 bs itiee C.helplevel 
$26 } If this key is on last tewel, then print the help text 
854 IF .level EQL shelpingo Chipst. realkeys) ‘If found last ke ey 
S22 aes yok, ghelpinto ChipSv_allhelp) ! or we are printing all help 
857 IF sneletate Chip$v_qualhelp] 'If qualifier help 
858 THEN CHSMOVE (rfa$c_ nse seetausiry !' then set to reread Line 
859 nhel ode ° ChipSb_ readrfa)) 
860 ELSE perforce {copy_ke pdata, recdesc)); ‘Otherwise out on pyrene Line 
861 IF hele! nfo Chip$v_a thete) If pr tating a note 
862 helpinfo Chlp$t tostdevet? = level; i then set [ast sion correctly 
863 er tore (print_helptext T. helpdata)); 
864 info nlpoy. gh'ptounds = true; 'Flag help found this call to help_do_key! 
865 ~ seen = fals ‘Flag no qualifer seen 
866 F NOT. che Lpinte Chipsy qualhelp) iunless qualifier help 

th THEN helpinfo Chip$l_curlevel) = -helpinfo Chip$l_curlevelJ 

89 IF opeletnts Chip$l_readsts] ‘If’ last read was not end of file 

90 THEN BEGIN ; 

P 4 perform a ba eel key (.helpdata, ! then recurse for next 

38 IF a te hel info hip$t_ readsts] 

94 THEN EXITLOOP; 

95 END a 

38 ELSE EXITLOOP ‘Quit if eom 

9 END 
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LBR_GETHELP Extract help text from Library ig-se -1984 01:50: VAX=11 Bliss: -32 V 9 L 
1602000 Routine find_help_key 12-80 8-138e 93:39:98 DISKSVMSMASTER: clea” she GETHELP.832; ? ee 8} ve 
; 878 1338 6 ELSE BEGIN ; 
; 879 1599 6 perform (cop 1-KeY g. noletete. recdes a9))3 ‘Put key in porter ‘ 
; 880 P 1600 6 perform (find_help_ key ( -helpdata, (IF “hel pinto Chl psy. qualhelp ‘ 
: He : 1803 $ ELSE Peloles + y 1))); 
; helplevel + ‘ 
; bss 1908 4 IF wh t info Chlp$l_readsts] * ill dul 
; : ° ) readsts 'If st more module to go ° 
: 386 1808 — ne (fi ; hel 1,‘ helpd ehelplevel)); ! th f : k 
3 er oe nd_he elpdata, .helpleve then recurse for more keys ‘ 
; BB 1607 7 dy eiheh ite strist l_readsts] j 'If'we are now at end of module” ‘ 
; 888 1608 7 ! then all done ° 
; 890 1610 g ELSE OR ITLOOP; ! exit if at end of module : 
; #4891 1611 END; ‘ 
; 89 1916 5 END : 
: 89 1615 5 ! 
; 894 1614 5 ! Line was not special 
; 895 1615 5! 
; 896 1616 5§ ELSE pcciy ! 
; 897 1617 5 IF NOT is. ney iIf no key on Line 
; 898 1618 6 elpinfo Chlo$v_qualhelp] ! or this is qualifier help 
; 899 1619 6 AND ‘wor -helpinfo Chi p$v_qualineJ) ! and this Line not a quai (fier Line 
: 900 1620 5 —— qualseen = false; 
; 901 1621 § IF ey ‘If key on Line 
; 4 1o¢¢ 2 “AN evel LSSU .helplevel ! and its less than level we are looking for | 
; 904 1624 6 ape heey _length, saverfa, helpinfo cnigee. readrfa]); !restore rfa of last record 
; 905 1625 6 EXITLOOP Terminate now 
: 906 1626 5 s 
; 907 1627 4 END; 
: 908 1628 END; 'End of WHILE loop 
: 909 1ogn 
: 910 1630 : 
3; 6911 1631 ' Make sure some help was found. If no help was found, and the request is not "’...°' 
: aig 1036 ; and no keys above this level were wild, then issue the ''no help’’ message. 
3; 914 1634 3 
: «915 1635 4 BEGIN 
; 916 1636 4 BUILTIN 
: 917 1637 4 FFS; 
: 918 1638 4 
3; 919 1639 4 LOCAL 
: 920 1640 4 posadr, 
; 35 1641 4 sizadr, 
; ¥ § 1046 4 dstadr; 
: 92 1643 4 
> 924 1644 4 posadr = 0; 'Start at first bit 
: 925 1645 4 sizadr = -helplevel - 1; ‘Look at this eany bits 
, 356 1966 4 pile path = NOT FFS ( posadr, sizadr, wildflag, dstadr); ‘Look for a wild key 
; 928 1648 ; 
3 929 1649 IF NOT -helpinfo Chip$v_hlpfound) ‘If no help, found 
: 930 1650 4 AND NOT re gR nuit Chi psy allhelp) ' and not 
: 4 1931 r ieee d_path) i and not wild path to key 
; 335 1888 4 selginte Eni psy. hlpfound] = true; 'Flag help found this call to do_key! 
3; 934 1654 4 helpinfo Chip$v_anyhelp] = true; ‘Flag help found this call to LbFSget_ help 
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LBR_GETHELP Extract help text from Librar 16-Sep-1984 01:50: VAX-11 Bliss-32 V4.0-74 Page 30 
ibe=850 Routine find_help_key . 10-Sep-19 4 03:39:08 DISKSVMSMASTER: CLR. SRCIGETHELP.B32; 1 . 3 
; 935 1655 4 CHSMOVE irfa$c_length, save‘ astrfa 'Restore last rfa 
; 9 $ 1886 4 =seng he(pinfo Chl p$b_lstkeyrfa]); 
; 9 16 4 are (print_nohelp (.helpdata)); ! then print no help available 
; 938 1658 ND; 
; 939 1659 
; 940 1660 3% RETURN true 
> 941 1661 END; !0f find_help_key 
OFFC 00000 FIND_HELP_KEY: 
-MORD Save R2,R3,R4,R5,R6,R7,RB,R9I,R10,R11 : 1428 
SE FF60 CE 9E 0000 MOVAB =160(SP), § ; | 
50 00006 CF DO 0000 MOVL §LBRSGL_CONTROL, RO 5 1443) 
50 0A AO 00 0000C MOVL 10(RO)> RO : 
51 06 AC 04 C1 90010 ADDL3 #4, HELPDATA, R1 + 1464. 
57 61 DO 0001 MOVL (R41), R7 : 
008c co Dd 00018 TSTL  140(RO) : 1467 | 
05 13 0001C BEQL 1$ : 
6E 01 DO OOD1E MOVL #1, EXPAND_RECORD + 1469) 
02 11 00021 BRB 2 Pieced 
6f D4 00023 1$ CLRL EXPAND RECORD + 1471 
0c Ag 4C A? 9E 00025 28 MOVAB 76(R7)> 12(SP) : 1473, 
0 OC BE & 0002A BLBS al2(SP5, 3$ ; | 
0298 31 0002E BRW 43$ : 
14 AE D4 00031 3$ CLRL QUALSEEN + 1480) 
SA 08 AC dO 00034 MOVL HELPLEVEL, R10 + 1481 
1C AE 5A DO 00038 MOVL R10, LEVEL 3 
18 A? 5A 00 0003C MOVL R10, 24(R?) + 1482 
FO AD 56 OA? 06 28 00040 MOVC3 #6, 86(R7), SAVELASTRFA + 1483 
E4 AD 20 AE SE 00046 MOVAB KEYSTRING, TOKEN2DESC+4 + 1485 | 
04 AE 50 A? YE 0004B 4$: HOVAR B80(R7), 4(SP) : 1488 | 
FB AD 04 «BE 06 28 00050 MOVC #6, a4(SP), SAVERFA : 
51 70 AE 9E 00056 MOVAB RECDESC, Ri : 1489 
50 04 AE 00 0005A MOVL 4(SP), RO : 
00006 30 0005E BSBW = READ RECORD : 
OC BE 50 00 00061 MOVL RO, 312(SP) 3 
OF 50 £9 00065 BLBC 5$ : | 
0c 6E £9 00068 LBC _- EXPAND_RECORD, 5$ + 1490 
70 AE 9F 00068 PUSHAB RECDEST > 1491 
0000v CF 01 FB 0006 CALLS #1, EXPAND_IT : 
0c BE 50 D9 9007 MOVL RO, al2(SPy : 
OC BE £9 00077 58: BLBC = @12 (SP), 7$ > 1492 
10 AE D4 90078 CLRL CURCHAR > 1496 | 
50 06 AC 10 (C1 Oo7t ADDL3 #16 HELPDATA RO + 1497. 
58 604A DO 0008 MOV. CROSERI J, CURKEYDESC ; 
28 «A? SA 91 9087 CMPL = R10, 40(R?) + 1498 
02 15 00088 BLEQ $ ; | 
8 D4 0008D CLRL CURKEYDESC > 1499 | 
9 D4 008F 63: CLRL R9 : 1500 
8 D3 091 TSTL CURKEYDESC : 
8 1 Bnee BEQL 94 3 
9 6 009 INCL R9 ; 
10 AE 04 B8 9A 9097 MOVZBL @4(CURKEYDESC), CURCHAR ; 1502 | 
2F 10 AE D1 0009C CMPL CURCHAR, #4 : 150 | 
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LBR_GETHELP Extract help text from Librar 1b-se 1984 01:50: VAX=11 Bliss-32 V4.0-74 Page 32) LE 
be =600 Routine find_help_key ' ae 3:39:96 DISKSVMSMASTER:CLBR.SRCIGETHELP.B32: 1° (35 | vC 
2A 10 AE D1 00165 208:  CMPL RCHAR, #42 : 1548 | 
4 1 1 3 BNE at : | 
(7 69 2 £0 00168 BBS #11, (RO), 16$ + 1549, 
4 3 16F 218: BLBS RS, 16$ 3; 1550. 
3 20 A 172 MOVAB KEYSTRING, R3 : 1552) 
4 AS DO 00176 MOVL 4 (CURKEYDESC), RS : 
4 5B 17A MOVL KEYLENGTH, R4 : | 
2 EO AD ¢ 17D MOVZWL TOKEN2DESC, R2 : | 
00906 181 SBW = -FMGSMATCH_ : | 
AF E9 184 BLBC_ RO, 16$ ; 
50 74 AE 7C AE C3 00187 22$: SUBL3 TOKENDESC+4, RECDESC+4, RO : 1560. 
70 AE 50 AO 0180 ADDW2 RO, RECDES : 1559. 
74 AE 7¢ «OAL D0 191 MOVL TOKENDESC#4, RECDESC+4 ; 1561 | 
08 AE 05 00196 TSTL cH RESULT ; 1562 | 
15 12 00199 BNEQ 4$ : 
54 01 00 00198 MOVL #1, R4 : 1563) 
58 00 20 AE EO AD 2D 00196 CMPCS TOKEN2DESC, KEYSTRING, #0, KEYLENGTH, - : 
04 68 O1A a4 (CURKEYDESC) : 
03 1A OO1A7 BGTRU 23$ : 
54 01 09 001A9 SBWC C1, RG : 
08 AE 54 00 001AC 238: MOVL_ R4, CH_RESULT : 
56 A? 04 BE 06 28 00180 24$:  MOVC3 #6. a4TSP), B6(R7) + 1566 
05 69 OC £0 00186 BBS wid, (R9), + 1567 ; 
16 AT 1C Ar DO 001BA MOVL LEVEL, 20(R7) + 1568 
50 04 OOIBF 25$:  CLRL + 1569 
08 AE D5 001C1 TSTL § CH_RESULT : | 
02 13 001C4 BEQL 268 ; 
50 D6 0016 INCL RO ; 
51 69 01 OF EF OO1C8 26$:  EXTZV #14, #1, (RO), RI : 
50 1 ¢8 001CD BISL2 F 
52 FF AA 9E 00100 MOVAB -1(R10), R2 + 1570 
51 44 A? 01 52 EF 00104 EXTZ 2, #1, 68(R7), R1 ; 
56 51 50 C9 OO1DA BISL3 RO. R1. WILD PATH : 
28 «A? 1¢ «AE OT OO1DE CMPL LEVEL, 4O(R7) : 1574 
04 13 OO1€ BEQL 27$ F 
4E 69 OE €1 001E5 BBC #14, (RO), 32$ : 1575 
08 69 0¢ 3 O01E9 27%: BBC #12. (RO). 28$ : 1577 
04 BE —E8 AD 06 28 OO1E MOVC3 #6, LASTQUALRFA, @4(SP) + 1579 
O£ 11 OO1F BRB 29$ ; 
70 AE OF OO1F5 288 PUSHAB RECDESC : 1580 
04 AC DD OO1F PUSHL HELPDATA : 
FD95)~—sCF Of FB O1F CALLS #2, COPY_KEY 3 
69 E9 0020 BLBC = STATUS, 35$ ; | 
05 69 O& €1 9 0 29$ BBC 14, (R9) 308 : 1581. 
18 «A? 1¢ AE DO MOVL LEVEL, 24(R7) : 1386 
04 AC DD 0020C 308 PUSHL HELPDATA : 1583 | 
0000v CF 1 FB O20F CALLS #1, PRINT_HELPTEXT ; 
55 0 ; 0214 BLBC. STATUS, 3 : 
01 Ad 0 88 6 17 BISB2 #32, 1(R9 > 1584 
16 AE D4 0021B CLRL QUALSEEN : 1585 
03 69 0 £0 1 BBS #i2, (R9), 31$ : 1586 
14 A? D DECL 20(R7) : 1588 | 
6C OC BE E9 31$ BLBC a12(SP), 41$ ; 1589 | 
A 0D 9 PUSHL 1 : 1592 
04 AC OD B PUSHL HELPDATA : 
FDCD cf Q FB 5 CALLS #2, FIND HELP_KEY ; | 
9 E8 00 BLBS STATUS, 36 ; 
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header = .lbr$gl_controlClbr$l_hdrptr] : BBLOCK 
context = .lbr$gT_ senerys Lor$l yt" tr] : BBLOCK, 'Context block 


5 
BR_GETHELP Extract hel cons from Librar 18s Sep 1: VAX=11 Bliss-32 V 4 
Hee =600 Routine help. do_key1 J 14-Sep 7138 93; 39: 98 DISKSVMSMAST facet ‘clea. OSRCIGETHELP. B32;1 18405 
943 66 ZSBTTL ‘Routine help_do_key1'; 
944 66 : ; 
945 ! Main body of help_do_key1 
946 ! 
947 
3e8 P 
4 helpdata : REF VECTOR C,LONG); 
951 LOCAL 
926 expand_record, 
95 helpkey 
926 recdesc’: BBLOCK Cdsc$c_s_bln]; 
956 BIND | 
957 
958 
0 


959 helpinfo = .helpdata ( he ty info] : BBLOCK, ‘Pointer to information structure | 
+e keyldesc = helpdata Chip$k_keyldesc] : REF BBLOCK; !Start of key descriptor addresses | 
96 It .headerClhd$l_dcxmapvbn] NEQ 0 
96 THEN 
ace expand_record = true 
308 expand_record = false; 
968 helpinfo Chlp$v_uothinfo] = false; 'Not dging other info text now 
969 helpinfo hipsv_ unohlp] = false; ‘Haven't ereratnee if help or not yet 
970 helpinfo Chip$v_ wukeylind = _gise: 'Not a key Line 

helpinfo nips curlevelj 'Now at level 1 
or6 peierare Se hl Lest lastleyel] = 3 'Last looked at level 1 

& 
974 Cas itt cor he hr & helpinfo Chips. keyeried): ‘Zero ,key2 rfa 
975 CHSMOVE (rfa$c yisngth, .entryrfa, helpinfo Chlp$b_readrfal); !Copy the RFA 
ore CHSFILL (ZASCIT hlp$c_maxrecsiz, .(helpinfo Chipst. bufdesc] + 4)); 
978 perform (copy_key (.helpdata, .entrydesc)); 'Copy keyl into buffer 

i 
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CNOA AE WR O OODNO UE WIN 9 OD NAN E WIN OOD NOA UE WIN 0 ODNOU EWN OO OONOUS 


f wor sae Chip$l_readsts]) = read_record (helpinfo Chip$b_readrfa], recdesc)) !Read and skip modul | 


| 
ETURN .helpinfo Chip$l_readstsJ; 
IF note ( IF (hetpinto: Chips'. readsts) = read_record (helpinfo Chip$b_readrfa], recdesc)) 
and_recor 
THEN helpinfothtast ats). = expand_it( recdesc ); 


| 
| 
| 
Read and skip module header and first record (‘1 KEY1"') | 
| 
} 
| 
pnoter nfolhip$l_readsts 
e | 
| 
| 
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0 

0 

3 
9 0 THEN RETURN Lpinfo ChTp$l_readsts) : 
p44 : CHSMOVE (rfa$c length, helpinfo Chipsb. readrfal], helpinfo Chlp$b_lstkeyrfa]); ‘Remember RFA of first good 
Oo 1 ' 
Boe ' If there was only one key on the Line then handle that. 
996 1 ‘ | 
997 1 IF shelpinto Chip$t_rea ys] EQ. 1 ‘If only one e key | 
998 1 AND NOT helpint6 fat _allhelp) ' and not ‘.. 
999 1 THEN BEGIN 


m5 | # 
LBR_GETHELP xtract help text from Librar 16-Sep-1984 01:50: VAX-11 Bliss-32 V4.0-74 LE 
ibe =600 outine help.do key! j 122808- 1 3b 5:39:08 DIKSUMGMASTER SEL BR sae GETHELP.B32: 109 (10) 


IF obelpinte Chi pty lt heled 'If '..."" then print help for key! also 
THEN perform (print_helptext (.helpdata)); 
helpinfo Chlp$v_hlpfound] = false; 'Flag no help found this call fo do_key1 
t 


find_help_key (,helpdata, 2); 'Find the help text and print 


| 
| 
| 
; 1000 719 IF NOT .context Cctx$v_outputhlp) ‘Tf not for LBRSOUTPUT_HELP 
; 1001 720 AND CHSEQL (.keyldesc fascty’ len thi, ' and ‘HELP’ keyword ~ 
3 oe 721 ekeyldesc Cdsc$a_pointer], 
3 SR? 4 ¢ ghey idence dsc$w_lengthl, 
; e 
: 100 724 THEN helpinfo Ehtp$y_helphip3 = true; ! then print additional info 
: ob 5 perunn print_helptext (.helpdata); ! then print text and return 
; 10 7 
; 10 728 ! 
3 ° 4 4 There is more than 1 key. Search the help text for the text to print | 
; 10 73) 
; 10 7 ¢ ELSE 
; 10 73 BEGIN 
; 10 734 
; 10 735 
; 10 736 
; 10 737 
3 10 738 
; 10 739 
; 10 740 
3; 10 741 


NM—OVOONOAVEWN OOO 


PROPOR 2 SS OO 


3 
; RETURN true 
1 END; ! Of help_do_key1 


OFFC 00000 HELP_DO_KEY1: 
WORD 


é Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1362 
SE 0C C2 0000 SUBL2 #12, SP : 
50 00006 CF 00 0000 MOVL LBRSGL_CONTROL, RO + 1676 
51 0A AO DO OOOOA MOVL  10(RO)7 R1 : 
59 OE Aad DO O000E MOVL  14(RO), RO : 1677 
57 OC ac dO 9001 MOVL §-HELPDATA, R7 : 1678 
56 04 A? dO 00016 MOVL  4(R7), RO ; 
008C C1 DS OOO1A TSTL 140(R1) + 1681 
05 13 OOO1E BEQL 1 : 
58 01 00 00020 MOVL #1, EXPAND_RECORD > 1683 
08 11 00025 BRB 2$ ; 
58 D4 00025 1$ CLRL_  EXPAND_RECORD + 1685 
66 07 BA 0007 2$ BICB2 #7, (RB) + 1689 
16 A 01 DO 0002A MOVL #1. 20(R6) + 1690 
18 Ab 1 DO O0¢E MOVL = #1 34 (R6) : 1691 
6E 504C4548 8F 00 000 MOVL  #1847175752, HELPKEY > 1692 | 
06 00 6E is 00 2c 0039 MOVCS #0, (SP), #0, #6, 62(R6) + 1693 | 
50 Ab 08 BC 06 38 0040 MOVC3 #6, @ENTRYRFA, 80(R6) : 1695 | 
0050 = &F 20 6£ = 00 C 0046 MOVCS #0. (SP), #32, #80, a8(R6) ; 1695 | 
04 AC DD 0004F PUSHL ENTRYDESC : 1697 
57 DD 00052 PUSHL 7 : 
FC6C OCF 08 FB 0054 CALLS #2, COPY_KEY : | 
73 E 0099 LBC status, 9$ ; 
52 4C Ab SE 0005C MOVAB 76(R6). R2 : 1703 | 
51 04 AE 9E 00060 MOVAB RECDESC, R1 : 
50 0 Ab YE 00064 MOVAB 80(R6), RO ; 


| 
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227 bytes, Routine Base: $CODE$ + 07CB 


; Routine Size: 


8.6 | 
LBR_GETHELP Extract help text from Library 6-Sep-1984 91 +30: 96 VAX-11 Bliss-32 V 37 8 
v04= Routine print_helptext 4-Sep-1984 12: DISKSVMSMASTER: clea” sae GETHELP.B32; 29 a _ VO 


ES 
3 


1742 1 XSBTTL. ‘Routine print aap etent 
ROUT INE print_helptext~ (he pdatas = 


help text is output 


4 

: 5 le4¢ 
Print some help text 

Inputs: 
helpdata Address of help data vector set up by lbrS$get_help | 

3 Outputs: 

; localrfa updated 

3 i 

3 le 


MAP 
helpdata : REF VECTOR [,LONG); 


LOCAL 

expand_record, 

dataseen, 

recdesc : BBLOCK Cdsc$c_s_bln] 
pot heey BBLOCK (rfa$c_ “length, 
e 

keydesc : BBLOCK Cdsc$c_s_bln); 


header = .lbr$gl_controlClbr$l aeretrs : BBLOCK, 
helpinfo = .helpdata (Chl $k -infod : LOCK, 

reclen = recdesc Cdsc$w_ engthd 50RD 

recaddr = recdesc (dsc$a_po ater? : REF VECTOR C,BYTE); 


Fg eter ntnent dcxmapvbn]) NEQ 0 
gg PONE. record = true 


RAAAARARAARAARE 5 at at et at ek 
MEW O OBNAUEWN $0 ODNOUS WN “OO ODNAOUS WN —"OOONOuUsS 


nan: record = false; 
perform (print_keys (.help peel 


a ea el ee et ee a ed ed a od dD 


Be Oe Be Oe Oe Oe Be Be Oe Se Se Se Oe Se Ge Ge Se Be Be Be Be Ge BH Se Be Se Be SH Se Be Be Se Se Se Se Se Se Se Se Se Se Se Os Se Ses Se ae BES Se Se Se Se os eee 


E 
; 
; 
; BIND 
; 
| 
; 
be 


porters (print_ blankline ( -helpdata 

066 HSMOVE (rfa$c_ zlength. helpinfo hipsb. readrfal, saverfa); 

067 8 dataseen = fal 

068 8 IF .helpinto thtpst. readsts] 

5 THEN 

34 S Read records until end of module or key/qualifier stop 

678 91 WHIL 

074 3 « CHSMOVE (rfa$c pength. helpinfo Chip$b_readrfa], saver 
are a, IF yo gro Rips ear guesses * read_record (helpinfo Chips. readrfa), recdesc)) 
One 795 THEN Nop inpocntpsi readsts] = expand_it( recdesc ); 
078 796 shelpinfoth(pSt_ readsts] 

079 797 

080 798 dO BEGIN. 


— eee EE — _ ——_ — ——————E——E— - a= cc 


‘eee 
LOR BE TMELP 


—————— 
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Extract a text from Library + 9) +30: 96 
Routine print_helptext 14-Sep-1984 12: DISKSVMSMASTER : (LOR. sre GETHELP.B32; a (11) vO 
; 1081 1799 & IF (.reclen EQL 0) OR <.recaddr CO] NEQ ZASCII '!") ! We really just want to check if its a eggreer* line 
: He 1800 4 ' but we must first check if its a zero length Line, because if it is, recaddr 
; 108 1801 4 ! will be the Line Length of the next Line instead of the first character of chs current Lin 
3; 1084 1 o¢ 3 THEN 
3; 1085 1803 4 BEGIN 
§ 188 1308 4 IF is ag -on_line (helpinfo, recdesc, level, keydesc) 
1088 i 8? : seal es helpinf Chl $ Lhelp) ‘If Lifier hel 
: elpin :. v_qualhe ! ualifier he 
: 1089 1809 ¢ THEN BEGIN. . ° , 
; 1090 1808 IF ¢! Tatpinte enigee,, qualine] ! and its a qualifier Line 
3; 1091 1809 7 AND .dataseen ! and we have seen other than 
3 1098 1810 6 OR ehelpinfo Chlip$v_keyline] ' a qualifier, or this 
; 109 1811 6 : is a keyword Line 
3 Me 1ai¢ 8 en EXITLOOP; ; then get out of the loop ; 
3; 1096 1814 5 IF a sshelpinto Chipsy.. qualhelp] ‘Tf mie: help 
3; 1097 1815 5 info Chlp$v_keylineJ ' and its ' keyword Line 
: 1098 1816 5 THEN EXITLOOP; ' then all done 
; 1099 1817 4 'Is a key Line 
; 1100 1818 4 erform ( alt goer ehelpdata, recdesc)); 
3 1101 1819 4 oF info hlps v sanyhelp] = = true; 'Flag help was found 
3 1138 1820 4 OT .helpinfo Chip$v_qualine 'Unless a qualifier Line 
; 110 1821 4 OHEN dataseen = true; 
3: 1104 13s¢ 3 ; ! Not a comment Line 
3 Vie esi 3 END; ! of while loop 
3 1107 1825 CHSMOVE (rfa$c_length, saverfa, belpinte Chip$b_ readrfa]); !Restore RFA of last record 
$ Bs 1358 § perform (print_options (.helpdata)); 'Print additional options available 
3: 1110 1828 2 RETURN true; 
31111 1829 1 END; ! Of print_helptext 
OFFC 00000 PRINT_HELPTEXT: 
. WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11 3 1743. 
5E 1¢ C2 00002 SUBL2 SP 3 
50 00006 CF DO 00005 MOVL LaRéct_ CONTROL. RO > 1771, 
50 OA AO DO QOO0A MOVL RO)? r 
57 04 Ac 00 0000¢ MOVL HELPDATAS R7 > 1772) 
56 04 A? 00 0001 MOVL  4(R7), R6 ; 
008C 9 D 90016 TSTL  140(R 6) : 1776— 
13 OOO1A BEQL 1$ ; 
59 01 00 Bpeit MOVL #1, EXPAND_RECORD ; 1778 
95 11 OOO1F BRB 2$ F 
D4 00021 1$: CLAL EXPAND_RECORD : 1780) 
57 DD 00023 2%: PUSHL a : 1782. 
0000v CF 97 43 025 CALLS Rint grE vs 3 
07 9 E9 OO02A LBC stATUS : 
57 DO $ D PUSHL R7 ; 1783) 
0000v CF 01 FB 002F CALLS #1, PRINT_BLANKLINE ; 
78 50 3 0034 3$: LBC sth us ; 
OC AE 50 AG 06 8 00037 MOVC3 OiR6), SAVERFA > 1784. 
D4 00030 CLRL DATAS > 1785 
27 4C A6 ED O003F BLBC aiRed "ss : 1786 


; Routine Size: 215 bytes, Routine Base: S$CODES + O8AE 


dD 6 
LBR_GETHELP Extract help text from Librar 16-Sep-1984 01:50: VAX-11 Bliss-32 V4.0-74 Page 39 
ibe =850 Routine print_helptext . 12-808- 1382 03:39:98 DISKSVMSMASTER:CLBR.SRCIGETHELP.B32:1° > ad 
OC AE 50 AG 06 38 043 4$: MOVC3 #6, 80(R6), SAVERFA : 179 ; 
21 16 AE 49 MOVAB RECDESC, RI : 179 ; 
0 50 AG 3 4D MOVAB 80(R6), RO : ; 
00006 0051 BSBW READ RECORD : ; 
4C AG D0 0094 MOVL RO, 76(R6) : ; 
OF E9 00058 BLBC ~—E-s«aRO,_ S$ : : 
0c E9 0058 BLBC — EXPAND_RECORD, 5$ + 1794. ; 
146 AE SF 0005E PUSHAB RECDEST + 1795 ; 
0000v CF 1 FB 0061 CALLS #1, EXPAND. IT : ; 
4C Ag 0 DO 00066 MOVL RO, 76( : ; 
5 4C Ab E9 0006A 5S BLBC 76(R6), 11$ + 1796 : 
16 AE 83 00065 TSTW RECLEN : 1799 : 
06 13 000 BEQL 6 : | F 
21 18 BE 91 00075 CMPB = @RECADDR, #33 : | ; 
CA 13 0007 BEQL ; : 
04 AE 9F 00079 6S: PUSHAB KEYDESC + 1804. ; 
04 AE 9F 0007C PUSHAB LEVEL : | ; 
1¢ AE OF OO007F PUSHAB RECDESC : | ; 
56 DD 00082 PUSHL R6 : F 
0000v CF 04 FB 00084 CALLS #4, IS_KEY_ON_LINE ; ; 
ic 50 £9 00089 BLBC 0; 9$ : | ; 
12 03 Ab 04 €1 0008C BBC #4. 3(R6), 8S + 1806) ; 
03 03 Ab 03 €1 00091 BBC #3. 3(R6). 7$ + 1808 | ; 
2A 58 £8 00096 BLBS = DATASEEN, 11$ + 1809 | ; 
25 03 Ab 02 £0 00099 7s: BBS #2, 3(R6), 11% + 1810. ; 
05 03 A6 04 £0 0009 BBS #4, 3(R6). 9$ ; 1814, : 
1B 03 Ab 02 £0 OO0A3 8S: BBS #2. 3(R6). 11 + 1815) : 
16 AE SF OOOAR 9$: PUSHAB RECDESC : 1818 | : 
57 DD 000A PUSHL 7 : | ; 
0000v CF 02 FB OOOAD CALLS #2, CALL_OUTPUT : | ; 
21 50 €9 000B2 10$:  BLBC STATUS, T2$ : ; 
03 Ab 01 88 00085 BISB2 #1, 3(R6) : 1819) ; 
BS 03 Ab 03 £0 00089 BBS #3. 3(R6), 4$ : 1820. ; 
58 01 DO OO0BE MOVL #1, DATASEEN : 1821) ; 
80 11 000C1 BRB : 1791 ; 
50 Ab OC AE 06 28 000C3 11$:  MOVC3 #6, SAVERFA, 80(R6) + 1825 : 
57 DD 0009 PUSHL R + 1826 : 
0000v CF 01 FB 000CB CALLS #1, PRINT_OPTIONS : : 
03 50 €9 00000 BLBC STATUS, 12$ : ; 
50 01 DO 00003 MOVL #1, RO > 1828 ; 
04 00006 128: RET : 1829 ; 
. 


help text from Library 1$-sep-19 4 01:50: 
prt : 72:37:98 


VAX-11 Bliss-32 V4.0-74 Page 40 
nt_nohel 14-Sep-1984 12 PT EKSVMEMASTER SCV GR SRCIGETHELP.032;1 . (12) 


<r 
o- 


ee 8 a ed nd td od od od 8 ot ot 


RS et ee rh ett tent spt abet tm FP oF oP ai’, Ye, 18, | 


ZSBTTL ‘Routine print_nohelp'; 
ROUT INE print_nohelp (Relpdata) = 


'e4¢ 
' Tell that no help was found as requested 
Inputs: 


WAIANAE Ct 


helpdata Address of help data vector set up by Lbr$get_help 
Outputs: 
A string telling that no help was found is output. 


Pp 
helpdata : REF VECTOR C.LONG); 


IN. A.WNARIPIPINIPININUNPNDS 2 SS SS OS 


-helpdata prt eek. tate? : BBLOCK 
helpinfo Chip$t_wildflags) : BITVECTOR; 


o- 
oo 
“ou 


LOCAL 
lastlevel, 
desc : BBLOCK Cdsc$c_s_bin]; 


Ww 


ILL (ZASCIIY ', hlpSc_maxrecsiz, .(helpinfo Chip$l_bufdesc] + 4)); 
desc dsc$w_length) = 
desc Cdsc$a_pointer] = aatocaeg (1); 
erform (move_key C hel pdate. esc, 1 
astlevel = petpiote C 
IF .lastlevel EQL 0 
THEN Lastlevel = 1; 


Copy as many of the keys into the buffer as we can 
INCRU i FROM hip$k_keyldesc TO hip$k_keyldesc + .helpinfo Chlp$l_realkeysJ-1 ! Print all the keys 
BIND 


PAEXAEAEAPAAAASMIMAMNMNMNVIMN aS SSL LLL LEE 


curkeydesc = .helpdata C.i] : BBLOCK; 
awe (move_key (.helpdata, curkeydesc, 1)); 


CRS SBS SUNS SaNS OE 


perform (print_blankLline S seeceeetarrs 
perform (print_Line cong lpdete iF 
erform “OC int .e0t tons (.nelpdata)); 
elpinfo Chip$v_unohlp] = false; 


RETURN true 
END; ‘Of print_nohelp 


hd hh tt IT 
2.00 09 00 00 00 0D 0D 0 0d Od 0 Cd Od OD OD 09 OD 0D OD OD 0D OD Cd 09 09 CD 0D C0 CD CD CD CD CD CO UD CD CO CO CO CO COU COCO OP CD CDOPODOCDCDCOCDOCDCDCD CO x 
MEW 0 DONA WIN $0 OD NAME WN | O ODNOU EWN (OO ODN EWR SO OONOUS WN "0 A 


Be Se Se Be Se Be Be Be Se Se Se Fe Se ee SH Se Se Se Ge Ge Se Se Se Se Be Se Se Se Se Se Se Se Se Se lis Be Se Se Se Se Ge Se Se Ge Se Ss oe Se Se Se ee Se Se Se Se ws 


OOOO Oo NNN NNN NS 


on 
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Routine print_nohe 14- 


O1FC 00000 PRINT_NOHELP: 
. WORD 


Save R2,R3,R4,R5,R6,R7,R8 : 1831 F 
58 FA7C CF 9E 0000 HOVAB move KEY, RB : ; 
25 08 C2 0000 SUBL #8, SP : : 
5 04 aC DO 0000 MOVL HELPDATA, R7 + 1850 ; 
56 06 A B0 900 MOVL 4(R7), Rb : | ; 
be o1 88 0001 BISB2 #1, (R6) : 1858 ; 
7 DD 901 PUSHL 7 + 1859. 3 
0000v cr 01 FB 001 CALLS #1, PRINT_KEYS : | ; 
0 50 001¢ LBC —- STATUS, ; : 
03 Ab 10 BA 9001f BICB2 #16, 3(R6) + 1860. : 
0050 =s«aBF 20 6E 00 C 999 3 MOVCS #0, (SP), #32, #80, a8(R6) > 1861. ; 
6E F648 CF 9B 0002C MOVZBW NODOCMSG, DESC ; 1862, F 
04 AE F647 CF 9E 00031 MOVAB NODOCMSG+1, DESC+4 ; 1863 ; 
01 DD 00037 PUSHL #1 + 1864. : 
04 AE 9F 00039 PUSHAB DESC ; : 
57 DD 0003¢ PUSHL R ; : 
68 03 FB O003E CALLS #3, MOVE_KEY : : 
4B 50 £9 00041 BLBC STATUS, &$ ; ; 
50 18 As DO 00044 MOVL #§ 24(R6), LASTLEVEL > 1865 ; 
03 12 00048 BNEQ 1$ : 1866. 3 
50 01 DO 0004A MOVL. #1, LASTLEVEL > 1867 : 
53 28 «Ab 04 (C1 00040 1$: ADDL3 #4, 40(R6), R3 + 1871 : 
52 05 DO 00052 MOVL #5. I ; | ; 
OF 11 0005 BRB 3$ : ; 
01 DD 00057 2s: PUSHL #1 : 1876. ; 
6742 DD 00059 PUSHL  (R7)CIJ : | F 
57 DD 0005¢ PUSHL 7 : : 
68 03 FB 0005E CALLS #3, MOVE_KEY : ; 
28 50 £9 00061 BLBC STATUS, 2$ : ; 
52 D6 00064 INCL I : 1871. ; 
53 52 D1 00066 3$: CMPL } R3 : ; 
EC 1B 00069 BLEQU 2$ : 
7 DD 00068 PUSHL 7 > 1879 
0000v CF 01 FB 90060 CALLS #1, PRINT_BLANKLINE ; 
1A 50 €9 000 ¢ LBC STATUS, 4$ 3 
57 DD 0007 PUSHL 7 > 1880 
0000v CF 1 FB 00077 CALLS #1, PRINT_LINE : | 
10 9 E9 0007¢ BLBC STATUS, 4S ; | 
DD 0007F PUSHL 7 > 1881 
0000v CF 01 FB 90081 CALLS #1, PRINT_OPTIONS : 
06 50 ’ 0086 BLBC STATUS, 4$ : 
66 01 8A 00089 BICB2 #1, (RO) ; 1882 | 
50 01 BO 008C¢ MOVL #1. RO > 1884 | 
4 OOO8F 4$ RET ; 1885 


; Routine Size: 144 bytes, Routine Base: S$CODE$ + 0985 


r 
6 | 
ABE? RabeNSS Seley tegt team (sore MESRcHREE GI:G0:Gh  HIEAIWBALERERECfbA°sRScerne.osast*®*a 


; 1379 1 1 ZSBTTL ‘Routine qrtet options’; 

3117 1 1 ROUTINE print options Thelpdata) = 

5 1126 1 8 BEGIN 

3 117 1 'e4 

3 1174 1890 ! Print help options available 

3 1175 1891 ! 

: a 189 ! Inputs: 

: 117 189 : 

~ 1178 1894 ' helpdata Address of help data vector set up by lbr$get_help 

3; 1179 1895 ' 
: 1180 1896 ' Outputs: 
3; 1181 244 ! ; 
3; 1182 1896 ! Help that is available is output. 

3; 1183 1899 2! 

3; 1184 1900 2 !-- 


<r 
+4 
i 
SF 
= 
mn 
- 
v 


SSSSLEREANLSSSLSSRANLESSLS 


; Routine Size: 


Extract help text from Library 


H 6 
1eSepe19be 12:37:58 DISKSVMSMASTER 


"Routine print_otherinfo'; 


data vector set up by Lbr$get_help 


= otherinfo 
ehelpdata, 


: REF VECTOR C,LONG]; 


dsc$w_length] = .otherinfo (0); 


1); 


perform (print_blankline (.helpdata)); 


desc); 


ne (.helpdata)); 


Routine print_otherinfo 
1901 ZSBTTL 
1386 ROUTINE print_otherinfo (helpdata) = 
190 BEGIN 
1904 lee 
1905 
1209 ' blank Lines. 
1308 8 i 1 
' Inputs: 
1909 ! 
1910 : helpdata 
1911 
at lee 
191 
1914 helpdata 
1915 
1916 LOCAL 
at desc : BBLOCK Cdsc$c_s_bin]; 
1919 desc f 
1960 desc [dsc$a_pointer] 
1992 perform (call_output ( 
1984 ; perform (print_blankli 
1925 RETURN true 
1926 2 END; 


55 bytes, 


5E 

6E 

04 AE 
0000v CF 
18 

0000v CF 
OE 

0000v CF 
03 

50 


Routine Base: 


0000 00000 PRINT_OTHERINFO: 
oW RD 


08 

FSFE CF 
FSFA OCF 
04 AC 
01 

50 

SE 

04 AC 
02 

50 

04 AC 
01 

50 

01 


SCODES + OA1 


C2 ai 


0 
0 
1 
1 
1 
1 
1 


SoOOOoCoOoCoOooOoooSo 

SoOOoOOooooooooooeco 

COOOCCOCOCCOOoOOoooCSooe 
WODOWNOUTWO4WOy> 


Ww OOMMOM"O OMS OO 
fSowuw°o oTmcoc omTomw 


1$: 


i Print the text “other information available’ surrounded by 


'Set up descriptor for text 


'Print a blank Line 
‘Tell other info available 
‘and a blank Line 


'Of print_otherinfo 


Save nothing 
’ P 


OTHERINFO, DESC 
OTHERINFO+1, DESC+4 
HELPDATA 


L 
#1, PRINT _BLANKLINE 
STATUS, 1$ 


UGLPRATA 
#2, CALL_OUTPUT 
STATUS, T$ 
HELPDATA 

#1, PRINT_BLANKLINE 
STATUS, 1$ 


0-74 Page 
ERC IGETHELP.B32;1°° 


43 
(14) | 


cchatpemiaaptiimadaje dtiibeamaticchpeentlaichetehmanttccineectiat B 


OR (.startpos + .desc Fésctu alengtnd + 1) GTRU -endpos 
THEN perforn (print_line (.helpdata Ne ake room for Line 
keytabs = (.desc Cdsct$w _length) + intore lLogtab) / hlp$c oReyts 
helpinfo Chips tabindex] = ghetpi Ai 
hip$l-curptr) = Pn scoot (.desc Cds cou, xe? . 

-desc Cdsc$a_pointer], 

shey tabs eh lobe lo tab, set ‘thtpst curptr)); 

palpints Chip$lt_nchars) = .helpinfo Chlp$l_nchars) + .keytabs*h[p$c_ logtab; 
RETURN true; 
| 


END; Of move_watch_tabs 


Lp$l_tabind on) + .keytabs; 
Fa ’ 


helpinfo 


LBR_GETHELP Extract help text from Librar 1b-se -1984 VAX-11 Bliss-32 V4.0-7 sft 
viet Routine move_watch_tabs . 1 ~8ep- 1984 9}: 39: 98 Disk SVMSMASTER:CLBR. sre GETHELP.B32;1 he (15) 

: 1213 1927 2 ZSBTTL ‘Routine move watch_tabs 

: 1214 19 8 ROUTINE move_watch_tabs Kcit.! desc) = 

3: 1215 3 BEGIN 

Be RB ges 

; } 8 1 § Move a key into the buffer with logical tab control 

: 9 19 4 Inputs: 

: 4 19 i helpdata Address of help data vector set up by lbr$get_hel 

; | § 19 $ desc Address of string descriptor for fey” = 

; > 1986 ; Outputs: 
3 1 4 1941 Key is copied into the buffer, watching logical tab stops 
: 1229 1908 ine | 
: 1539 1908 3 MAP | 
:1 3 1946 helpdata : REF oVECTOR C.LONG), | 
3 1 ; 194 desc : REF B | 
eee 
; 123 1950 helpinfo = .helpdata Chip$k_info] : BBLOCK; | 
: 133 1958 LOCAL | 
3; 123 195 endpos, 
: 126 1954 startpos, 
ly Rerete 

: 1246 1957 3 startpos = shelpinto Chi pst tabindex] * hlp$c_l ogtab 

: 124 1958 endpos = .helpinfo nips L_width] - ((.helpinfo Chlp$t_ * curlevet) + 1) * hlp$c_indent); 

: 1246 1959 If “startpos GEQU .end + 

3 124 1960 

3 12 196 

3: 12 196 

3: 12 196 

3 12 196 

3s l2 196 

: 12 196 

3 12 196 

3 1s 196 

: 1 1969 2 


RERUN 2S SRNONEWN OSORIO 


PP & & & 
OOONOAUE Ww — 


OOFC 00000 MOVE_WATCH_TABS: 
WORD 


Save R2,R3,R4,R5,R6,R7 ; 1928 
53 4 ac D 9002 MOVL HELPDATA, R3 : 1950 
56 4 oA 00 006 MOVL 4 (R3), RO : | 
52 1c OA 0B MULL3 #11, 28(R6), STARTPOS : 1957 | 
5 16 Ad DO MOVL  20(R6), RO > 1958 | 
5 C4 #2, RO : 
As (3 RO, 32(R6), RO : | 
5 (2 #2. ENDPOS : | 


> PoC ere eT ee eT eer ere eT ol ee ee 


nn ofS S&S - N mo too 

ro wn (OO o oO oo ooo 
- Oo & o o aon Aaoe 
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OD - ROK —- OMe WERK mw ec MP 
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oo os ia | am BSeoueucuwenen ~ 
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100 bytes, Routine Base: S$CODE$S + OA4C 


; Routine Size: 


K 6 
LBR_GETHELP Extract note, text from Librar 16-Sep-19 VAX-11 Bliss-32 V4.0-7 46 
1602000 Routine add_key j 14S Het 9); 39: 98 DISKSVMSMASTER: CLBR. src GETHELP.B32; (29 *16) 
3 1 af 1370 ZSBTTL ‘Routine add_key'; 
; 1258 197 ROUTINE add_key (enfry, user routine, index_desc, helpdata) = 
ie Ware gee 
> 1261 1974 3 | Move a key into the buffe 
: 1364 eT hag ee les 
: 1264 1999 entry : REF BBLOCK | 
; 65 1978 helpdata : REF VECTOR C,LONG); | 
:1 € 1980} LOCAL | 
: i ? i 1 entrydesc : BBLOCK Cdsc$c_s_bin); 
: 127 19 § entrydesc (dsc$w ~lengthd, = .entry fidxsp. keylen]; | 
3 1e7 1984 entrydesc Cdsc$a_pointer] = entry Lidx$t_ “keynames; | 
; ! 4 19 5 ectore te (nove cwatch_tabs (.helpdata, entfrydesc)); 
: 1274 19 $ END; ‘Of add_key 
0000 00 ADD_KEY:.WOR Save nothin 3 1971 
sf 08 2 0009 en sUBL2 we SP : 
5 4 aC p 0 0 MOVL NTRY, RO + 1983 
6E § A B 404 MOVZBW cng} ENTRYDESC : 
04 AE AO 9E 0000D MOVAB (RO), ENTRYDESC+4 F 
5E DD 00012 PUSHL ; 1985 
10 AC DD 00014 PUSHL HELPDATA : 
81 AF 02 FB 00017 CALLS #2, MOVE_WATCH_TABS ; 
03 50 €9 00018 BLBC STATUS, T$ 3 
50 01 00 49h MOVL #1, RO : 1986 
04 00021 1$: RET : 1987 


; Routine Size: 34 bytes, Routine Base: S$CODE$ + OABO 


| 


va, 0-084 Page 47) 
:CLBR.SRCJGETHELP.B32;1 (17). 


6 
VOuz000 Rain body'of printcoptions. VEcsepctags 94:80:05 yA 


helpinfo 


q $89 ZSBTTL ‘Main body of print_options'; 
§ 39 Main body of print_opti 
! Main bo rin 
i $36 } y of p options 
81 99 p 
B8e helpdata : REF VECTOR C,LONG]; 
84 996 LOCAL 
85 997 expand_record, 
8 998 lastflags, 
8 999 evel, 
88 000 lastlevel, 
89 001 tokendesc : BBLOCK Cdsc$c_s_binl], 
90 ik) recdesc : pel Fk Cdsc$c s-bUnJ, 
91 8 desc : BBLOCK dscSc sin . 
9 004 saverfa : BBLOCK (rfa$c_length], 
: 005 first_time; 
9 BIND 
. header = .lbr$ contrat Ci pret hdrptr]) : BBLOCK, 
9 


ute 

oe 
fg 
@ 
oo 
a 
o 
a 
=> 
- 
ad 
= 
—_ 
= | 
—~ 
°o 
uw 
@ 
@ 
-— 
oO 
Oo 
x 


curflags 
meyers = 
wi _wildflags) : BITVECTOR, 
reclen = recdesc [ scéy_lengthd : WORD, 

nter]; 


IF jheaderlindSt_dcxmapybn) NEQ 0 


expand_record = true 
expand_record = false; | 


IF .helpinfo Chlp$v_qualhelp) OR .helpinfo Chlp$v_allhelp] 
THEN RETURN truss F . _ 


OWONOA VL WN O OONOUS WN OOOO 


APIPIPIPIPININPININID) 2 2 OOOO 


bad ata at ad ee I ee a ada ada edad abd ad dada ed adab dab adabadadabadadad ad 
SOSOCOCOCSCOOCOSCOSOOSOOSOOOOOOOOOO OOOO OOOSoOOo Oo 


De Se He Se Be Be Be Se Se Be Be Se Se Se Se Be Se Be Be Se Se Be Se Pete Se Se Ge Se Ge Se Ge Se Ge Be Se Se FH Se Se ee Se SH Se Seas ee FHSS Se Se SH Se ee Se ee 
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Bie Be Se Oe Oe Oe Oe Be Be Be Se Se Be Oe Be Ss Ge Se Se Se Se Se BH Se BH Ss Be Oe Oe Os Oe Se Oe Oe Os Se SH Oe Os Ss Oe Oe Se Se Se Se Oe Oe Se Se Se Ss Oe Oe Sees es 


2 

EL 

2 

; AND .lastlevel 
2 T 

2 


lastlevel = .helpinfo Chlp$l_lastlevel); 
IF .helpinfo Chip$v ynoh lad 
HEN DO Lastlevel = .lastlevel - 1 
UNTIL ((.lastlevel EQL 0) 
3 OR NOT .wildflag C.lastlevel - 1]); 
3 helpinfo Chip$v_uothinfo] = true; 
35 IF Piestlevet EG. 1 
34 AND .helpinfo phi psu unohip. ‘ 
35 AND oneyer <a NEQ ! avoid storing an rfa which has never been set 
36 THEN CHSMOVE (rfa$c_length, helpinfo Phi pep.teyer ta). helpinfo thi ped readrfa]) 
37 ELSE CHSMOVE (rfa$c_length, helpinfo Chip$b_lstkeyrfa), helpinfo Chip$b_readrfa)); 
38 first_time = true; 
39 lastflags = 0; 
29 level = 0; 
rk: IF (.helpinfo chi pby unohlpJ ‘If first no help found 
4 AND .lastlevel EGL 0) ' at first leve 
044 OR .helpinfo Chip$v_helphip] ' or inserted ‘HELP’ key 


_ 
o 
2 
Sx 
= 
m 
- 
~v 


: 


PRS 


WANN ANNWNNANAN AWWW 


WW Tat ee et ee oe et et et de ed el el nd ed ane 


COONO UE WN HO OONAUNE WN SO ODNOUES WN —OVODNOULS WW 


09.09 09 09 09 C8 SI NIN SIN SN NS PAA AAA AAO MMIII 
PUES WN © OONAO UNSW 0 ODNOA UE WN SM OOONAULS WIN OOO 


04 
3 1 
_ 
. 
s 1 
: 1 0 
3 3 0 
3 : 0 
3 1 § 
3 Y 0 
: 1 0 
3: 1 0 
3% 0 
3 7 0 
3 7 0 
3 0 
3 1 0 
; 7 20 
3 1 so 
3; 155 0 
3; 135 20 
3 135 20 
3; 135 20 
3 135 $ 
3; 135 0 
3 135 20 
3 135 $0 
3; 136 0 
; 136 20 
: 136 20 
3; 136 20 
3; 136 20 
3; 136 20 
3; 136 20 
3; 136 20 
3: 136 20 
3; 136 20 
3 137 20 
3; 1371 20 
3 1376 20 
3 137 20 
3 1374 208 
3; 1375 2087 
3 1376 sees 
3 1377 089 
; 1378 2090 
3; 1379 2091 
3; 1380 $038 
3: 1381 09 
; 156 094 
; 13 095 
3; 1384 4 
3; 1385 9 
3; 1386 098 
: 1387 099 
; 1388 100 
3; 1389 2101 


erform (traverse_keys (1, add key, 0; ehelpdata ); !Format and print index 
: hel info Chlp$l_nchars) NEG 0 
THEN perform (print_line (. psiadenadia 


ELSE 
WHILE 
 CHSMOVE (rfa$ ntest ne helpinfo Chip$b_readrfa], saverfa) 
4 IF inesernr 0 Rlost er reassess. © read_record (helpinfo Chip$b_ readrfa), recdesc)) 
expan 
THEN helpinfochtpsi. sodetad = expand_it( recdesc ); 
shelpinfoth(pst_ readsts) 
¢ DO IF is_key_on_Lline (helpinfo, recdesc, level, tokendesc) 'If key on Line 
AND TIF nentaN Chl p$v_qualhelp) (if ¥ quelitier help 
i chelpinfo chipsv. qualine) ! its a qualifier 
4 IF .first_time AND .helpinfo Chlp$v_qualine] 
4 THEN false 
4 ELSE true 
3 
§ AND .level LEQ .lastlevel + 1 ‘And we might want to look at key 
THEN BEGIN 
i ar -level LEQ .lastlevel 'If found start of next level 
4 CHSMOVE (rfa$c_length, saverfa, helpinfo Chip$b_readrfa]); ‘Restore RFA of Last record 
4 ie ghelpint o Chlp$ -ncharsd £4 0 
4 oper tore (print_line ( ‘solecstedis 
4 ReTUR true; 
5 IF first time 
4 THEN BEGIN 
4 "per fore (print_otherinfo (, helpdata)); '!Print “other info available’ 
4 elpinfo Chip$V_anyhelp] = true; 'Flag help was found 
$ sicet. time = false; 
5 IF 1 F lastflags NEQ ogurtiegs) ‘If Sit ferens line i 
4 AND (.lastflags NEQ 0)) ' (and not first Line 
THEN perform or int Line (.helpdata)); i then force out previous line 
tokendesc Pt dsc Su olengeh h] = .reclen - ‘Figure Length of Line 
tokendesc (Cdsc$a spointers.: - .recaddr); 
; erform (move_watch_tabs (.helpdata, t6 ondens?) 
gat tloge = .turflags; Set new flags 
CHSMOVE fr tats serene saver ta, helpinfo Chlp$b_readrfa]); 
IF .helpinfo CAlp$l_nchars] NEG 0 
THEN perform (print_ Ay C helpdata)); 
helpinfolhip$v_uothinfo] = false; ! Reset otherinfo flag 
RETURN true ; 
END; ‘Of print_options 


mM 6 | 
ract help text from Librar 16-Sep-1984 01:50: VAX-11 Olisse 32 V4 48 
Ma } 4 body of print_options . 13288-1386 93:39:98 DISKSVMSMASTER: Atty She GETHELP.832;1 age (17) 
soe 8 nt Chips help) = t 
elpinfo v_anyhe = tru 
pertere (print. Stherinte Ss nelpdata)) ‘Print “other info available’ 
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a THELP Extract help text from Librar -Sep-1984 01:50: VAX-11 s-32 V 
y0e=000 Main body of print_options ‘ ae 93:39:98 DISK SK$V: men TER: clBae OSRCIGETHELP. B32;1 page 50 


1 
1 
0 00A1 BNEQ 14$ : | ; 
00g? if OOA3 13$: BRW 22$ : | : 
8 DD DONG 14$:  PUSHL Re : 2050. : 
0000v CF gi FB OA CALLS PRINT L INE : | ; 
F3 0 8 SOAD BLBS Star Tus, 13 : : 
OC AE gA 06 28 00081 15S: MOVC3 (R10) SAVERFA > 2055. : 
1 1C AE 0086 MOVAB Rete , a1 : 2056, : 
50 SA p OOBA MOVL : | ; 
00006 O0BD BSBW neas RECORD F ; 
4C A? 0 08 00C0 MOVL 76(R7 : 3 
OF 50 € d0c4 BLBC = RO, -16 : : 
0c 6E Ey 00C7 BLEC EXPAND _RECORD, 16$ + 2057. ; 
1C AE 9F OOOCA PUSHAB RECDEST : 2058 F 
0000v CF 01 FB 000CD CALLS #1, EXPAND. IT : | ; 
4C A? 50 DO 000D2 MOVL RO, 76( : ; 
9 4C A? E9 00006 168 LBC © 76(R7), 13 + 2059. : 
24 AE 9F OOODA PUSHAB TOKENDESC + 2061. ; 
OC AE 9F 000DD PUSHAB LEVEL ; : 
24 AE 9F OO0EO PUSHAB RE CDESC : : 
57 DD O00E3 PUSHL R7 : ; 
0000v CF 04 FB 000E5 CALLS #4, IS_KEY_ON_LINE : | r 
C4 50 €9 OOOEA BLBC 158 : | ; 
06 69 0C £1 OO0ED BBC wid, (RO), 17% > 2062 | ; 
BC 69 0B €1 000F1 BBC #11, (RO). 15$ + 2063. ; 
07 11 00085 BRB 18$ ; ; 
04 5B £9 OOOF7 17$:  BLBC FIRST TIME, 18$ > 2065 | ; 
B3 69 0B £0 OOOFA BBS #11, TR 9). 15$ : | : 
50 01 A6 SE OOOFE 18$: § MOVAB 1(R6), : 2070. ; 
50 08 AE D1 00102 CMPL _—sCLEVEL. RO : ; 
AS 14 00106 BGTR 15$ : : 
56 08 AE D1 00108 CMPL LEVEL, LASTLEVEL ; 2072, ; 
15 14 0010C BGTR 19% : : 
6A Oc AE 06 28 00108 MOVC3 #6, SAVERFA, (R10) + 2074 : 
10 A? D3 0011 TSTL  16(R7) : 2075 | ; 
6C 13 00116 BEQL  24$ : ; 
58 DD 00118 PUSHL 8 : 2076 | : 
0000v CF 01 FB OO11A CALLS #1, PRINT_LINE : | ; 
62 50 £8 0011F BLBS STATUS, 22$ : | ; 
04 O012¢ RET : 2077 | : 
10 58 £9 00123 19$:  BLBC  FIRST_TIME, 208 : 2079 | ; 
58 DD 00126 PUSHL RB > 2081 ; 
FEI6 =F 01 FB 00128 CALLS #1, PRINT OTHERINFO : | : 
57 50 E O01 D BLBC. STATUS, 25$ : | 3 
01 Ad or 8 00130 BISB2 #1 : 208 
B 04 001 CLRL FIRST > 2083. 
04 AE 69 10 00 Fe 001 208: CMPZV bra. - LASTFLAGS ; 208 | 
OF 13 0013C BEQL yt ; 
04 AE d3 0013€ TSTL _LASTFLAGS : 2086. 
OA 13 00141 BEQL © 218 ; | 
58 DD 00143 PUSHL RB > 2087 
0000v ct gi FB 00145 CALLS #1, PRINT LINE : 
A 0 E9 OO14A BLBC_ —_ STAT ; 
50 20 Ar 8 AE C3 0140 21$: SUBL 3 ToxENDESC +4, RECADDR, RO > 2089. 
24 «OA 5 C AE Ai 0015 ADDW3 RECLEN, RO, TOKENDESC : 
24 AE OF 00199 PUSHAB TOLEADES sc > 2090 
58 pd 0015¢ PUSHL RB ; 


tk a a a ss 9 a 2 — as 4s — 9 4» os — 4» 4» 9 —) as ss — 9 49 9 _ ss 9 49 9 os ss — 4 - 4) 4 


p——--——_-- --- -- -— ——- — — - — ee —_ c— 


7 
LBR_GETHELP Extract help text from Librar 1b+s6 -1984 01:50: VAX-11 Bliss=-32 V4.0-74 e 51 
iba=680 Main body of print_options . 12-3 08- 1 8be 93:39:98 DISKSVMSMASTER: CLBR. SRC JGETHELP.B32; 1 939 ay 
FEI7 cf Q FB 15 CALLS #2, MOVE o¥ATcn. TABS ; 
1 16 BLBC = STATUS, 2 ; 
06 AE 69 3c 001 MOVZWL (RO), taSteLacs : 2091 
FF44 31 OO16A BRW 15$ : 2061 
6A OC AE 0 16D 22$ mMOVC3) # SAVERFA, (R10) + 2094. 
10 A p 1 TSTL 16(R : 2095. 
A 1 BEQL 2358 3 
8 DD 0017 PUSHL R + 20% 
0000v CF gi FB 00179 CALLS #1, PRIN T_LINE : 
06 0 9 17E BLBC STA 25$ : 
‘ 04 8A 00181 23$:  BICB2 a) : 20 
50 01 00 Bat ges: MOVL oh : 21 
04 00187 25$: RET > 21 


; Routine Size: 392 bytes, Routine Base: S$ CODES + OAD2 


dD 7 
xtract help text from Library 16-Se 
outine print_keys 14-Se 


Bee 


=138¢ 93:39:06 VAX=11 Bl iseeze v4.0 


p onet Page 52 
p- DISKSVMSMASTER:CLBR.SRCIGETHELP.B32;1 (18) 


E 
R 
; 1391 102 1 ZSBTTL_ ‘Routine print_keys'; :] 
3 : 4 } § 1 ROUTINE print_keys (helpdata = : } 
: 1394 108 § Sees : 1 
: 1399 106 i Print the keys found i] 
i] 31 108 ¢ i Inputs: 7 
; F444 119 helpdata Address of help data vector set up by lbr$get_help ‘ 1 
; 1401 1g i Implicit inputs: i 
: 1208 ie The keylist array is set up. 3 i 
: ithe 116 ; Outputs: | : 1 
; 1407 118 ; The key names are displayed on the terminal | : | 
: 1409 120 2 i-- | :1 
3 1410 121 3 1 
3; 1411 1 ¢ MAP s 3 
: 1412 gi¢3 helpdata : REF VECTOR C,LONG; | : | 
: 1414 $158 § Loca | 31 
: 1415 3126 lastlevel; | z 1 
: 1417 2128 2 BIND | 4 
; 1418 2129 helpinfo = .helpdata Chip$k_info] : BBLOCK | 7 
; 1419 2130 2 wildflag = helpinfo Chip$t_wildflags] : BITVECTOR, | :] 
: 1330 sigs § keylist = .helpinfo Chip$l_keylist] : BBLOCK; : : 
: 1422 $138 2 IF (lastlevel = .helpinfo Chip$l_lastlevel]) EQ. 0 'If no keys found ; 1 
3 1423 size 2 THEN RETURN true; ! then don't print any 23 
: ose tH helpinfo Chip$v_ukeyl in] = true; 'Flag on keyname Line a ! 
> 1426 2137 2 IF .helpinfo Chip$v_unohtp) 'I1f no help found | 31 
3 1427 138 THEN DO Lastlevel = .lastlevel - 1 3 1 
3 1428 139 4 UNTIL ((. Lastlevel EG 0) 31 
: 1698 140 OR NOT .wildflag C.lastlevel - 1)); : | 
: 1431 36 lastlevel = .lastlevel - 1; ‘Adjust for 0 base > 1 
: 1636 14 IF .lastlevel GEQ : 1 
3 143 144 THEN INCR i FROM 0 TO .Lastlevel ‘Loop through all descriptors 3] 
MB Hg pei elt 
; ions $i¢e curkeydesc = keylist + .itdsc$c_s_bln : BBLOCK; !Point to the descriptor ; } 
|: 1438 149 IF _curkeydesc Cdsc$a_pointer] NEQ 0 'If valid descriptor 31 
3: 1439 150 4 THEN BEG] 3] 
3 1440 151 4 helpinfo Chip$l_curlevel] = .i + 1; 'Set correct help level a 
: 1441 12 4 perform (print_Blankline (.helpdata)); ‘Print blank Line  ) 
3 ieee 137 4 porcere (call_output (.helpdata, curkeydesc)); ‘!Print the key Line : 
; 1464 155 END; ; | 
3: 1445 136 : 
3: 1446 15 helpinfo Chip$v_ukeylin] = false; 'No longer a key Line 
3 1447 2158 RETURN true 


7 
LBR_GETHELP Extract help text from Librar bese -1984 01:50: VAX=11 Bliss-32 V4.0-74 Pa 3 LBF 
v00=000 Routine print_keys : ie-Sep-19 4 93:39:98 DISKSVMSMASTER:CLBR.SRCIJGETHELP.B32; 1 9418) v0é 


: 1448 $128 ¢ 
3; 14469 160 END; ‘of print_keys 


Save R2, : 2103 
56 04 AC 00 00002 MOVL  HELPDATA, R6 > 2129 
5 04 A6 DO 00006 MOVL  4(R6), RS : | 
57 24 AS DO 900A MOVL 36(R3}, R7 : 3131 
52 18 A 9 it MOVL 4(R3), LASTLEVEL 3 2133 
47 1 0001 BEQL 6$ : 
63 08 88 00014 BISB2 #2, (R3) > 2135. 
0D 63 £9 00017 BLBC (RS), 2$ > 2137. 
52 D7 OOOIA 18: DECL LASTLEVEL > 2138. 
09 13 0001C BEQL $ > 2139, 
50 FF ag 9E 9001 MOVAB <-1(R2), RO + 2140! 
F3 44 A 50 €0 000 BBS RO, 68(R3), 1$ : 
52 D7 00027 28: DECL LASTLEVEL : 3142 
2D 19 00029 BLSS $ 3 2143) 
54 01 CE 00028 MNEGL #1, I 5 2144, 
24 11 O002E BRB 4 : | 
55 6744 7E 00030 3$: MOVAQ (R7)CIJ, RS > 2147, 
04 AS D5 00034 TSTL  4(R5) > 2149. 
1B 13 00037 BEQL 86 4$ : 
14 AB 01 As 9E 00039 MUVAB 1(R4), 20(R3) > 2151. 
56 DD 0003E PUSHL R > 2152. 
0000v CF 01 FB 00040 CALLS #1, PRINT_BLANKLINE : | 
16 50 €9 00045 BLBC STATUS, 7S ; 
55 DD 00048 PUSHL 5 : 2153) 
56 DD 000A PUSHL 6 ; | 
0000v CF 02 FB 0004C CALLS #2, CALL_OUTPUT 3 
OA 50 € 90051 BLBC  _— STATUS, : | 
D8 54 52 F3 00054 4$: AGBLE@ LASTLEVEL, I, 3$ > 2144, 
63 02 8A 00058 5$: BICB2 #2, (R3) > 2157, 
50 01 DO 00058 6$: MOVL #1. RO > 2158. 
04 0005E 7$: RET ; 2160. 
| 


; Routine Size: 95 bytes, Routine Base: S$CODES + OCSA 


| 


ae 
LBR_GETHELP Extract help text from Library 16-Sep-1984 01:50: VAX=11 Bliss-32 V4.0-74 Pa 54 
‘iba=sbo Routine print_line 18-308- 1 3be 03:39:06 DISKSVMSMASTER: CLBR.SRCIGETHELP.832;1 9° 19) 
; 1451 161 1 ZSBTTL ‘Routine print_line'; 3 
3 14 ¢ 188 1 ROUTINE print.tine (heTpdatad = ; 
; 14 16 BEGIN ; 
> 1456 164 'e+ 3 
3; 1455 165 ' Print the Line 5 
3 14 § 196 ! $ 
; 165 16 ! Inputs: 5 
; 1458 168 ‘ ; 
: 1323 19? helpdata Address of help data vector set up by Lbr$get_help ‘ 
; 1461 171 i Implicit inputs: : 
3 1468 178 the buffer descriptor in the helpinfo vector has a valid string descriptor 3 
: 1465 175 2! Gutputs: | 
4 re ¢ 178 ! : 
: re 4 i String is output : 
: 1483 v3 § i ch 
: 1471 181 P : 
: 1Or6 186 helpdata : REF VECTOR C,LONG); ; 
> 1474 184 IND : 
: 1et3 137 helpinfo = .helpdata Chip$k_info] : BBLOCK; : 
: 1079 189 LOCAL : 
; rtd | 1ss desc : BBLOCK Cdsc$c_s_bini; | : 
: 1480 190 desc pasctepetnters = .(helpinfo Chip$l_bufdesc] + 4); 
: 1481 191 desc [dsc$w_ length] = .helpinfo Chip$l_curptr] - .desc Cdsc$a_pointer); 
: lene 138 erform (call_output (che lpdate. desc); 
3; 148 19 elpinfo Ehtpst_nchars = 0; ‘Reset the counter 
3; 14846 194 helpinfo st ah = .(helpinfo Chip$l_bufdesc] + 4);!and eerater 
; 1485 195 CHSFILL (ZASCII * *, .desc Cdscbw_length], .desc Cdsc$a_pointer J); 
: 1486 196 RETURN true 
: 1487 2197 1 END; 'Of print_line | 
| 
003C 00000 PRINT_LINE: 
~WORD save R2,R3,R4,R5 : 2162 
5E 08 C2 0000 SUBL2 #8, SP ; 
50 04 AC D0 0000 MOVL HELPDATA, RO : 2185. 
52 04 AO DO 00009 MOVL a508} 3 
04 AE 08 Ae 00 Boos MOVL 8(R2), DESC+4 3 2190 | 
6E OC Ae 04 AE A3 0001 SUBW3 DESC+4, 12(R2), DESC > 2191 
4001 8F 6B Bat PUSHR #*M<R 3: 2192 | 
0000v CF 9¢ Fe O1C CALLS #2, CALL_OUTPUT : 
12 E9 00021 BLBC STATUS, T ; 
1 A2 04 00024 CLRL 16(R2 3: 2193 
0c A2 0 A Be 0027 MOVL 8(R2) seine) 3 2194 
6E 20 6E a 00 C 99 c MOVCS #0, (SP), #32, DESC, aDESC+4 : 2195 
50 61 DO 800 3 MOVL #1, RO : 2196 


7 
vOcsO00 = sRout ine printctine we 1Eseer198s 15:99:06 DISKSVMSRASTERsCLBA. SRCSGETHELP.B32;1 9° (19), 
04 00036 1$: RET ; 2197 


; Routine Size: 55 bytes, Routine Base: S$ CODES + 0CB9 


a ee ee ee ee ee ae ee oe ee re re ee ee ee aE a ae Sees 


= 
fo] 
~o 


FARR ISSELESE SSIS 


Wwrn—Oo0e~ 


08 


; Routine Size: 


H 7 
eet help text from Library So 


Sep 
-Sep- 


cre 
aon 


print _blankLine 


ZSBTTL ‘Routine print_blankline'; 
"st print _blankline (helpdata) = 


ne 
1 
1 
lee 
! Print a blank Line 
Inputs: 
helpdata Address of help data vector set up by lbr$get_help 
; 
i 
i 
le 


Outputs: 
A blank Line is output. 


P 
helpdata : REF VECTOR C,LONG); 


LOCAL 
desc : BBLOCK Cdsc$c_s_bin]; 


CHSFILL (0, dsc$c_s_bln, desc); 
RETURN call_output T.helpdata, desc) 
END; ‘of print_blankLline 


MINN -2 3 SS SS SS QO OOOO OOOO 


MRO OONA VE WN" CO ODNOU EWN OOM 


003C 00000 PRINT_BLANKLINE: 
-WORD Save R2,R3,R4,R5 


5E 68 2 i SUBL #8, SP 
00 6E C 800A MOVC #0, (SP), #0, #8, DESC 
SE DD 00008 PUSHL SP 
04 AC 0D 0000D PUSHL rath 
0000v CF 02 FB 00010 CALLS #2, CALL_OUTPUT 
04 00015 RET 


22 bytes, Routine Base: S$CODES + OCFO 


1984 93:39:06 VAX=11 Bliss-32 V4.0-7 
1984 12:37: DISKSVMSMASTER:(CLBR.SR 


4 Page 5 
CJGETHELP.832;1 (20 


6 
} 


LOR ABE TNELP 


3 3 


3 7 
3% 
oe 1 
3 7 
3 7 
oe 1 
3; 7 
3 7 
3% 
3} 
3; 7 
3; 7 
3 7 
3% 
* 1 
3 Y 
3 7 
3 3 
2 1 
3; 7 
3 7 
3; 3 
3 7 
3 7 
3 7 
3 
3 Y 
3; 7 
3 Y 
3 7 
3 7 
3; 7 
3; 7 
3 7 
3 3 
3; 7 
3; 
3 7 
3; 7 
37 
3 7 
3 
3 7 
3 7 
3 7 
3 7 
3; 7 
3 ¥ 
3 7 
; 7 
3 7 
3 7% 
3 
3 7 
3 7 
3 1 


7 
help text from Librar ibese -1984 01:50: VAX-11 Bliss-32 V4.0-74 P 57. 
calt_output ‘ 1e-8ep-1984 12:37:38 DISKSVMEMASTERSCLBR SRCSGETHELP.832;1° 9" (215 


ZSBTTL ‘Routine call_output’; 
ROUT INE call_output (Relpdata, desc) = 


lee 
Call user routine or LIBSPUT_OUTPUT to print Line of help text. 


i Inputs: 


ox 
- oe 
a0 
eon 


15 


—_— 


WN —O DONO USWUN —"OOOno 


helpdata Address of help data vector set up by yp oe help 
desc Address of string descriptor of Line to output 


' 

' 

' 

' 

: 

Outputs: 
Line is output via Lib$put_output or user routine 
' 


helpdata : REF VECTOR C,LONG], 
desc : REF BBLOCK; 


spaces, 
localdesc : BBLOCK Cdsc$c_s_bin], 
a_zero 

Linebuffer : BBLOCK Chip$c_maxrecsiz*2); 


IND 
helpinfo 
Linedesc 
user_data = ( 

IF oholpdate Chip$k_userdata]) NEQ 0 


-helpdata hig info] : BBLOCK, 
| 
EN .helpdata Chl p$k_userdata] 
| 


helpinfo Chlp$l_Bufdesc] : BBLOCK, 


ELSE a_zero 


BIND ROUTINE | 
typeout_routine = helpdata Chlo$k_userout); 


a_zero = 8; 
CASFILL (0, dsc$c_s_bln, localdesc); 
IF .desc bdscdy Length] NEQ 9 
AND .desc Cdsc$a_pointer] NEQ 0 
THEN BEGIN 
IF “pelpinto Chip$v_ukeylin] OR (.typeout_routine NEQ 0) 
THEN spaces = 
ELSE spaces = (.helpinfo Chlp$l_curlevel] + 1) * hlp$c_indent; 
tr = CHSFILL (ZASCII °°, Spaces. Linebuffer); 
HSMOVE c fise Cdsc$w_length], oOnee dsc$a_pointer], .ptr); 


PAA MMAVIVIUIN & BEEBE EEE SSesys 
PFW O ODNAVES WN 0 ODNOAUN EWN ( O OONAY FW —"OOONOUFSW 75 


NO oon A 


POPIPIPIPINIPINIPOPIPONIPSPINIPNIPNNPononony: 


AAA AAAAAA AMMAN BB EE BEB BWW WANNA OOPS 


ron 


a c- 
WnN—-O0o~’ 


localdesc Cdsc$w_length] = .desc Cdsc$w_length] + .spaces; 
localdesc Cdsc$a_pointer] = Linebuffer; 


wate tele e eal eal eal eal eal alah al al ab Ah ah Ab Ah ab ah Ab oh eh oh oh ob oh oh oh eh oh ah ah dd ad ah ad ad ad ak al ad al al a a Oa a eal a Ol eal eae ea el 


Delete trailing spaces 


EAA AIAN & CPPPPIPDPPIPID AAAI PYIPIPINIPIPINIPINPINPIPINPIPIPIPIPIPOPIPRIMPPIPUPIPIPIPIPNUPDY 
- ow r ome oae 
° . 7 
o wv i 
oa 
v0-—r 
~ 
so 
*-o 
w 
= 


PIPIPIPIPPYPDNININIPYINIPPYNINININIPDNNYINININININININININININININIPININYNINIPOPOPOPoNoNoNonoNnoponononofnofponnn» wm 


Ponononononononys 
ANN 
SOs 


ptr = Linebuffer + .localdesc Cdsc$w_length]; 


LBA GF IMELP Extract help text from Library 1b-se0-1984 93: 39:06 ys 


32 V 
Routine call_output 14-Sep-1984 D 8 


Liss- 4 20-748 Page 58 sited 
MASTER: CLBR.SRCIGETHELP.B32; 1 (21) | 


31 ie 0 4 WHILE (¢ 

; 157 SS pte z pte - 1; 

: i ; 4 CHSRCHA (.ptr} EQL ZASCII ' ' 

: 157 4 DO Localdesc Cdsc$w_length] = .localdesc Cdsc$w_length] - 1; 

1] 7 5 2 END: — —_— 

3 : 6 ? Call caller's routine or LIBSPUT_OUTPUT if caller didn't specify one 

: 1581 89 2 helpinfo Chip$l_tabindex) = 0; 

3 1 S¢ 90 IF "typeout rout lan NEQ 0 | 

3} 3? 91 THEN BEGIN | 

3 1 35 flags = .helpinfo Chip$l meets S] AND &X‘FFFF'; 'Trim flags to user-only flags 

3 138? 7 Al RN (.typeout_routiney (localdesc, flags, user_data, helpinfo Chip$l_curlevelJ); | 

; a tH + ELSE RETURN Lib$put_output (localdesc) 

; 1589 297 «1 «END; ! Of call_output | 
} 
| 

OFFC 00000 CALL_OUTPUT: | 

.WORD Save R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11 : 2224 
5E FF50 CE 9€ 0000 MOVAB =176(SPS, §P : 

58 04 AC dO 9000 MOVL HELPDATA, R8 : 2253 

59 04 AB DO 00008 MOVL  4(RB), RO : 

10 A&B D5 0000F TSTL 16(RBS : 2256 
06 13 00012 BEQL 1$ : 

5B 10 A8& DO 00014 MOVL 16(R8), R11 3 2257 
06 11 00018 BRB 2$ : 

50 6 9E OOOIA 1$: MOVAB A_ZERO, RO 3 2256 
58 50 00 0001D MOVL RO, R11 F 

bE D4 00020 2$: CLRL_ A_ZERO : 2264 

08 00 6E “A 00 C 900 : MOVCS #0, (SP), #0, #8, LOCALDESC 3 2265 

57 08 AC dO 00029 MOVL DESC, R7 3 2266 
67 BS 0002D TSTW (R7) : 
4B 13 0002F BEQL 7$ 3 

046 =A b3 909 1 TSTL  4(R7) 3 2267 

46 13 00034 BEQL 7$ : | 

05 69 01 £0 000 BBS #i, (RO), 3$ + 2269 | 

Oc (AB be 38 A TSTL 12(R8) 3 

4 1 D BEQL 4$ : 

6 D4 O003F 38 CLRL SPACES 3; 2270 | 
0B 11 00041 BRB 5$ ; 

50 14 A9 p 0 43 4$ MOVL 20(R9), RO : 2271 
56 50 1 9 4 ASHL #1, RO, SPACES : 
56 2 : 4B ADDL2 #2. SPACES : 

56 20 6£ ee C 00% 5$ MOVC #0, (SP), #32, SPACES, LINEBUFFER : 2272 
5A 5 0 2 MOVL. 3, PTR : 
6A 04 87 7 MOVE (R?), a4(R7), (PTR) ; 
FB AD 67 6 Al 0005 ADDW3 SPACES, (R7). LOCALDESC ; 
FC AD 08 AE 9E 906 MOVAB LINEBUFFER, LOCALDESC+4 : 
50 AE 9E 0006 MOVAB LINEBUFFER, RO ; 


; Routine Size: 163 bytes, Routine Base: S$CODE$ + 0D06 


K 7 
LBR_GETHELP Extract help text from Librar 16-Sep-1984 01: VAX-11 Blis 
1Oe=600 Routine call_output . 14- Hatt yi 93: 39: 98 DISKSVMSMAS 
A F8 ap 3C 00068 MOVZWL LOCALDESC, PTR 
A ; § 6F ADDL2 RO, PTR 
0 A (2 6$: CMPB ss = (PTR), #32 
05 is 7 BNEQ 7$ 
FB AD ° 7 DECW LOCALDESC 
Fg 1 QOO7A BRB 
1C AJ 04 QOO7C 7$: CLRL (RY) 
Oc AB 3 O7F TSTL (RB) 
14 1 082 BEQL 8$ 
04 AE 69 HS 084 MOVZWL (R9), FLAGS 
14 Ad OF 00088 PUSHAB 20(R9) 
58 pp Boa USHL R11 
0 AE F 1) PUSHAB FLAGS 
F AD 9F 04! PUSHAB tae Sb Yt 
Oc B68 04 FB 0009 CALLS #4, @12(R8) 
04 00097 RET 
FB AD 99F 00098 8$: PUSHAB LOCALDESC 
000000006 00 01 fe 44 CALLS #1, LIBSP 


UT_OUTPUT 


$-32 V4.0-74 
STER: CLBR.SRCIGETHELP.B32; 479 


3? 


*(21) 


7 | 
THELP Extract help text from Librar ibese -1984 :50: VAX-11 Bliss-32 V4.0-74 P 0 GE} 
outine 1s. key_on_ line , 12280871382 93:39:98 DISKSVMSMASTER:CLBR. SRC GETHELP.B32; 1° 9 (25) ve 


i 


Se 


R 
; 1591 98 1 XSBTTL ‘Routine is_key_on_Line'; 
; ! 3 $3 1 ROUTINE is_key_on.l Tne Tthelpinfo, Linedesc, level, keydesc) = 
1B ace 
; 1595 § ! This routine scans the Line described by Linedesc to see if 
; 1238 ? it is a keyword Line or a qualifier Line. 
3 1238 b2 Inputs: 
:; 1600 09 ! helpinfo Address of help info vector (pointed to by help data vector) 
3 1991 #08 } Linedesc Address of string descriptor for the line 
; 1808 340 ! Outputs: 
: 1604 F ! 
; 1605 \¢ : level level found is returned reed 
; lone 1? keydesc filled in with string descriptor for found key/qualifier 
5 4 2 1? } Return values: | 
; 1610 $319 ! true key/qualifier found, level and keydesc filled in 
3 1911 $318 § false not a key/qualifier Line 
: 1813 $335 5 in | 
3; 1614 $35) | 
3 1615 3 ¢ MAP , 
3 1616 32 helpinfo : REF BBLOCK, 
3; 1617 324 lLinedesc : REF BBLOCK, 
3 1918 $352 keydesc : REF BBLOCK; 
3: 1620 $356 2 LOCAL 
3; 1621 328 § Lineptr, | 
yo be ts oer 
> 1624 $334 ; helpinfo Chlip$v_qualine] = false; 'Not a qualifier line 
3; 1625 Saag helpinfo Chlp$v_keyline] = false; ! or a key Line | 
3 1o¢6 2335 2 IF .linedesc CdSc$w_length] EQL 6 'If O-length Line ; 
3 1627 2334 2 THEN RETURN false: ! there can be no key on Line 
: 1628 th Lineptr = .linedesc Cdsc$a_pointer); 
: 196) 336 curchar = CHSRCHAR (.Lineptr); 
: 1630 2337 IF (.curchar LEQU ZASCII'O' 'If not numeric 
; 1631 2338 OR .curchar GTRU ZASCII'9") ae : 
3 1084 2339 2 AND .curchar NEQ ZASCII'/' ‘And not a qualifier Line 
; 163 2340 THEN RETURN false ! then its not a keyword Line 
3 1Oe8 $30) ELSE BEGIN 
3; 16355 rk} IF .curchar NEQ ASCII ‘/' ‘Unless a keyword 
3; 1636 $3 4 THEN BEGIN 
; 1637 344 4 jnente = .lineptr = 1; ‘Back up, the pointer 
; 1638 345 4 IF NOT skip_blanks (.linedesc, Lineptr) | and skip blanks z : | 
3; 1639 346 4 THEN RETURN false; ' and if went to end of Line, not special line 
3; 1640 4 4 keydesc Cdsc$a_pointer] = .lineptr; 'Set pointer to start of key 
3 1641 48 4 keydesc [dsc$w_length]) = scan_word ,Linegese. Lineptr); 
; 1o4g 349 4 IF NOT ¢ib$Scvt_dtb (.keydesc Cdsc$w_length], 
3; 164 350 4 ekeydesc Cdsc$a_pointer], .level) 
i 1644 $2) 4 THEN RETURN false; ; 
3; 1645 26 4 IF NOT oie blanks (.linedesc, Lineptr) !Skip blanks {gl lowing key level 
3 1646 353 4 _ _ THER RETURN false; ‘and give up if end of Line 
3 1647 2354 4 helpinfo Chlp$v_keyline] = true; ‘Flag a key Line 


m7 | 
BR_GETHELP Extract help text from Librar 16-Sep 1; VAX-11 Bliss-32 V4.0-7 1 
802600 Routine is_key_on_line 14-Sep 71982 93; 39: 98 DISK$VMSMASTER:CLBR. Ske GETHELP.B32; "3 9° 08) 
; 1648 5 4 END 
; 1649 8 4 ELSE BE + 
: 1929 f 4 help nfo Chip$v_qualine] = true; 1"/" «= flag qualifier Line 
: 165 59 ee desc dsc $a_ ointer]) = .linept 'Set pointer to keyword or lifi 
5 1883 60 He dsc$w ~fength) = scan_ er 4 - Linedene. Tnestess ™ wand =i 
> 1654 61 AN N true; 
; 1655 6¢ 
; 1656 2365 «(1 eno; ! Of is_key_on_Lline 


001C 00000 IS_KEY_ON_LINE: 
. WORD 


0 Save R2,R3,R4 3 
5E 04 C2 90002 SUBL2 #4, SP ; 
« 04 AC 7D 0000 ova Nats R3 : 233 
03 AB OC BA 90009 BICB2 > 233 
64 B5 0000D TSTW = (R4S + 233 
7F 13 OOOOF BEQL 5$ : 
6E 04 A& 00 00011 MOVL 4(R4), LINEPTR + 233 
50 00 BE 9A 00015 MOVZBL @LINEPTR, CURCHAR + 233 
30 50 D1 00019 CMPL  CURCHAR, #48 : 233 
05 1B 0001C BLEGU 1$ : 
39 50 D1 O001E CMPL §CURCHAR, #57 + 233 
05 1B 00021 BLEQU 2$ F 
2F 50 D1 00023 1$ CMPL §CURCHAR, #47 + 2339 
68 12 00026 BNEQ 5$ : 
2F 50 1 00038 2$: CMPL CUR CHAR, #47 > 2342 
47 13 00028 BEQL 4 ; 
6E D7 00020 DECL LINEPTR. + 2344 
4010 8F BB 0002F PUSHR #*M<R > 2345 
0000v CF 02 FB 00033 CALLS #2, tte BLANKS : 
55 50 €9 00038 BLBC 0; 5$ ; 
52 10 AC 00 00038 MOVL KEYDESC, R2 + 2347 
04 A2 6—E 00 0003F MOVL LINEPTR 4(R2) s 
4010 8F BB 00043 PUSHR #M<R4,SP> + 2348 
0000v CF 02 FB 00047 CALLS #2, “SCAN, WORD ; 
62 50 80 9004¢ MOVW RO. (R2)~ F 
OC AC OD 0004F PUSHL LEVEL : 2350 
04 A be Bees PUSHL 4(R2) 3 
7E 62 3C 0005 MOVZWL (R2), -(SP) > 2349 
000000006 00 Q Fs 0058 ALL #3, po DTB ; 
2E 0 £9 0005F LBC. ~—-—saRO,._ ‘58 ; 
4010 8F 6B 00062 PUSHR #*M<R4,SP> + 2352 
0000v CF 08 FB 00066 CALLS #2, Sk {P_BLANKS ; 
eg E9 00068 BLBC ~—_ RO, 38 ; 
03 A 04 8 OO6E BISB2 #4. 3(R3) > 2354 
4 11 000 BRB 4$ ; 2342 
03 «a3 08 88 O07 3$ BISB2 #8, 3(R3) > 235 
53 10 AC 00 00078 4$ MOVL KEYDESC, R3 > 2359 
04 A3 E DO 0007C¢ MOVL  LINEPTR, 4(R3) ; 
4010 8F BB 6 80 PUSHR  #4M<R4,§P> > 2360 
0000v CF ; FB 84 CALLS #2, SCAN_WORD : 
$3 8 6 89 MOVW RO, (R3)~ ; 
0 01 DO 0008C MOVL #1. RO > 2361 


Merete” ASSESS PEE seen [ies ‘rer? if: e013 Poi30i98 BES ebimGmASTeRscLSa sacSceTHELP.832;1°%° ¢ # 
50 be < $0980 5$: CEL RO : i 6 3 


; Routine Size: 147 bytes, Routine Base: $CODE$ + ODA9 


Seen ee eee ee 


LBR THELP t t 
ybe=000 Routine 


000909 09 09 C9 CO OD OD C8 NI SINS SII NI NIN NI OO 


Sete Ge Se Ge Ge Oe Ge Se Oe Se Ge Be Se Se Oe Se Se Se Se Se Se Se Se Se Se Ge Se oe Ge BH SH Se Ge BH Ss Be Se oe Oe Se Se Ge ee 
a kk ek ee a kd a ed 
NOUS WN 0 ODNOAUNEWN (0 ODNOAU EWN O OONOUES W000 


SIA AAAAAAAAAAO 
COOOCOCOCOCOCOCOOOOOOOOOO 


CSSSSLESSRANSLESELS 


pone 


8 
help text from Librar 1b-se -1984 01:50: VAX=-11 Blis 
. 1o-9e8-13be 93:89398 NSU 


make_upper_case 


ZSBITL ‘Routine make_upper_case'; 
ii make_upper_case (idesc, odesc) = 


= case the name described by string descriptor idesc 

} Put the name at location oname 

Inputs: 
idesc Address of string descriptor for input string 

Outputs: 


String descriptor size filled in with right size 
buffer pointed to by address is uppercased input string 


i 
i 
i 
! 
i 
i 
: odesc 
i 

i 


MAP 
idesc 
Mas 


: REF BBLOCK, 
: REF BBLOCK; 


oname = .odesc Cdsc$a_pointer] : VECTOR C,BYTE], 
namlen = idesc(dsc$w_Tength] : WORD 
iname = .idescldsc$a_pointer] : VECTORL BYTE]; 


IF .mamlen GTRU 0 
THEN INCRU i FROM 0 
DO IF .inamel.i] GE 
AND .inamel.i] L 
THEN onamel.iJ] = 
ELSE IF .iname C.i 
OR .iname 


OR 
THEN BEGIN : 
odesc Cdsc$w_length] = .i; 
RETURN true 
END 
ELSE onamel.i] = .inamel.iJ]; 


odesc Cdsc$w_length] = .namlen; 
RETURN true 


END; 


ZASCII*a’ = ZASCII‘A') : 
7% ;If character is space or tab 


!Of make_upper_case 


001C 00000 MAKE_UPPER_CASE: 
Ww RD 


) Save R2,R3,R4 
51 08 aC 00 00002 MOVL ODESC, RI 
>3 04 ag DO 00006 MOVL 1BESC. R3 
63 B85 OQOO0A TSTW (R35) 
41 13 0000C BEQL 7$ 
54 9 3C OO00E MOVZWL (R3), R4 
4 07 00011 DECL R4 


Liss-32 V4.0 
MASTER: CLBR 


'copy name and convert to upper case 


7 
R 


4 Page 
CJGETHELP.B32;1 


28) 


GE] 
vO4 


gare? seesy tig eerie ht 


LBR_GETHELP Extract help text from Librar 
ipe=8b0 Routine ashe upper _case F 


1 
14- 
39 D4 48 
11 0001 
52 04 8338 9A 00017 18 
61 = 8F 52 91 0001 
2 1F 000 
7A sOBF 91 000 
8 1A 000 8 
04 8140 52 Q 83 000 
18 11 Q002E 
20 52 91 B08 2$: 
9 13 000 
09 2 4 00 
4 13 000 
¢ DS OO03A 
9 is 003C 
61 0 BO OO03E 3$: 
F 11 00041 
04 8140 3 90 00043 4$: 
D6 00048 5$: 
Be 50 D1 QO04A 6$: 
ce 1B 0004D 
61 63 BO OO04F 7$: 
50 01 00 BOE 8$: 
04 0005 


; Routine Size: 86 bytes, Routine Base: S$CODE$ + OE3C 


71986 92:37:58 DISKSUMSMA 


I 
95 (RS) 013. R2 
R2, #9 


» #122 
#32, R2, a4(R1)CII 


Me MOT 
>. 


» @4(R1) C1) 


azn DO S&S DWN DI BD oa 
PMAWNONSTV 
>. 
2» 
=> 


De 
> Ww 
~ 


$-32 V4.0-7 
TER: CLBR. SRC GETHELP.B32; ? 


Be Se Se Se Se Be Se Be Be Be Be Be Se Fe Ge Be Se Fe Se Se Se Se Se Ge 


7°28} 


2392 


2393 
2394 
2395 


Routine scan_word 14-Sep-1984 


Extract help text from Library 1B-seo-1984 93:39:06 i au mY s-32 V4 


; 1703 408 1 ZSBITL ‘Routine scan_word'; 

: 17Re rt 1 eevin scan_word (Lifedesc, Lineptr) = 

: 1706 411 144 

; 170 tig i ay routine returns the Length of the word which is pointed to 

; 1708 41 : by Lineptr in the Line Linedesc describes. It also advances 

: 17 rt ! Lineptr to the character past the end of the word. 

TAL Bip By tues 

3 Wf) 418 : Linedesc Address of erne ape yee for Line 

: ay rh } Lineptr Points to beginning of word 

; 1716 4 1 ; Outputs: 

; ite 34 5 Lineptr updated 

; 1750 $e5e Return value: 

; 1722 3407 21 Length of word found 

> 1726 e409 ine 

: 1725 st 0 

3: 1726 431 MAP 

: ict Stes ; Linedesc : REF BBLOCK; 

3 1729 2434 2 OWN 

: 1730 on £2... srebet ics : VECTOR (96, BYTE) INITIAL 

; Hey ty § C''WS28"" () #4, -./0123456789: 3; <=> 7@ABCDEFGHI JKLMNOPQRSTUVWXYZC\]*_‘ abcdefghijklmnopqrstuvwxyz{i}~'); 
: 1733 2438 2 LOCAL 

: He stip 2 dhe apa 

; ownptr, 

: 1736 2441 $ onaptr, 

3; 1737 seeg 2 stertptr. 

: He sot? § curchar : BYTE; 

: 1740 Stes § IF .Linedesc CéscSu length] EQ. 0 'If O-length Line 

3: 1741 2446 THEN RETURN 0; ! then no word to return 

3 1742 2447 § ownptr = :Uineptts ‘Get pointer to start of word 
3 1743 2448 startptr = .ow ‘Remember where it starts 

3 1744 2449 endptr = i leedeer” Cdsc$w —— + ae te Cdsc$a_pointer]; !Figure end of word 
3 1745 seat curchar = CHSRCHAR (.star the first character and 
: 1748 sta) iF COMER RETR Be ND_ CH (93, symbolics, an Se AND .curchar))) ! check validity. 
; Hog 2438 DO BEGIN (.endptr, -ownptr) GTR O ‘While there is Line left 

: 1750 2455 har = CHS$A_RCHAR (ownptr); 'Get_the character 

3; 1751 456 if TCHSFAIL (CHSF IND_ CH (93, symbolics, (ax 7S AND .curchar))) 
198 i386 of cee 

: 1754 459 -lineptr = .ownptr; ' Return updated pointer 

3; 1755 460 RETUR -Ownptr - stertetr: ’ 

3; 1756 461 1 END; ! Of scan_word 


0-7 
TER: CLBR. SRC GETHELP.B32; 479 


Vest el 


30 2F 
uF OSE 


58 57 
67 66 6 


7A 


50 


; Routine Size: 


Extract help text from Library 1 
Routine scan_word 1 
E92 

2C 2B 2A 29 28 27 26 25 24 23 22 Sof oe 
38 3A cf 37 36 35 34 33 #32 «31 PEAS 
4 33 3 46 45 44 43 42 41 40 OOEB 

54 5 5 a SF GE 4D 4C 4B 4A OQOEBC 
63 62 61 80 F SE 5D 5C 5B SA 59 OQOECB 
68 6A 69 68 OOEDA 

76 75 74 73 72 71 «70 gf 6— 6D gC OEDE 
00 00 00 7E 7D ?7C 7B OOEED 

003c¢ 00000 

50 04 AC DO 00002 

60 B5 444 

50 13 0000 

52 08 BC DO QOODA 

54 52 DO QO00E 

55 60 3¢ 00011 

55 04 AO CO 00014 
53 64 90 00018 

53 07 00 + 00018 

FF78 8CF 005D = BF 50 3a 00020 
02 12 BPO se 
51 D4 0002A 

51 D5 0002C 

2A 13 ait 43 

52 55 D1 00030 

1A 15 00033 

36 D6 00035 

53 62 90 00037 

53 07 00 ff 0003A 
FFS9—sCF 005D = =8F 50 3A 0003F 
02 12 00047 

51 04 00049 

51 D5 00048 

3 12 0004D 

08 BC 2 DO 0004F 

52 54 C2 00053 

50 52 00 00056 
04 00059 

50 D4 O005A 

04 0005C 

93 bytes, Routine Base: $CODES + OEF4 


_ ee 

a Sep VAX-11 8 

o=8ep-1984 12:39:58 Dh ekSvMGh 
-BLKB 2 

SYMBOLICS: 

ASCII \''WSEB'() #4,-./0123 
eASCII \JKLMNOPOQRSTUVWXYZE 
«ASCII \Lmnoparstuvwxyz{! > 


SCAN_WORD: 
. WORD 


1$: 
2$: 


3$: 
4$: 


5$: 


EPTR, OWNPTR 


ave 

INE 

RO) 

é 

LIN 

WNPTR, START®TR 
RO) ENDPTR 

(RO 

STA fptn CURCHAR 


R 
#7, CURCHAR, RO 
#93, SYMBOLICS 


Ss 
L 
( 
5 
a 
0 
( 
4 
( 
d 
RO, 
1 
1 
$ . 
| yas OWNPTR 


NPTR 

a CURCHAR 
CURCHAR, RO 

RO. a SYMBOLICS 


R1 
R1 


2s 
OWNPTR, @LINEPTR 
STARTPTR, R2 

R2, RO 


’ 


1 
R 
R 
5 
E 
OWN 
4 


RO 


s-32 V 
TER: clea she GETHELP.B32;1 


456789: ;<=>?@ABCDEFGHI\ 
\<92>\]*_‘ abcdefghijk\ 


“\<0><0><0> 


Page 66 


Sete Fe Se Se Se Be Se 


Pe Se Se Se Se Be Ge Se Be Be Be Be Be Be Be Be Be Be Se Se Se Se Se Se Se Se Se Be Be Be Se 


(24) | 


F 8 
LBR_GETHELP Extract help text from Librar 16-Sep-1984 01:50: VAX-11 Bliss-32 V 7 
y002000 Routine expand_it . 1228687138 93:39:98 Disk KSVMSMASTER: clea” she GETHELP.832; ( 9° 28) 


; 1738 aoe RSBTTL ‘Routine expand_it 


465 1 ROUTINE expand_it ( meeita’ ‘ desc d= 
1r99 464 BEGIN 
1761 465 1+¢ 
196 46 
176 46 


| This ym dy Peet a common section of code to use if the 


: 1764 468 rary record is 0CX data reduced. 

; 1765 469 

; 1798 470 ine 

: 176 471 BIND 

: 1768 47 context = .lbr$gl congrel Lor$l_ctxptr] : ar 

3 179? of? expand_desc = confext(ctx$l_dexrecdsc]: beock dsc$c_s_bln]; 
3; 1771 475 MAP 

3 Vie 47 record_desc: REF BBLOCK; 

3; 177 47 

3: 1774 478 if .dcxshr_address eql 0 

: 1775 479 then 

3: 1776 2480 perform (lbr$load_dcx()); 

3: 1777 481 

: 1778 48 expand_desc(dsc$w_length] = obj $c. maxrecsiz; 

: 1779 48 record_desc(dsc$b dtype] = dsc$k ~dtype_t: 

; 1780 484 record _desc(dsc$b_class] = dsc$k~class 

: 1781 P 2485 perform((.dcx_expand_ date) (context ctxst. _dcxctx], .record_desc, expand_desc, 
; 178s 2486 ecord desc decSut length])); 

: 178 2487 record_desc(dsc$a _potnter) = -expand_descldsc$a yt ee 
3; 1786 2488 RETURN true; 

; 1785 2489 iE ND: 


“ Save R2,R3,R4 5 2463 
50 00006 CF D0 00002 MOVL LBRSGL _CONTROL, RO : 2672 
53 OE A0 D0 00007 MOVL  14(RO)7 R3 : 
54 SA OA 3 00008 MOVAB 90(R3). Ro : 2673 | 
00006 CF D5 OO00F TSTL  DCXSHR- ADDRESS > 2678 | 
08 12 00013 BNE % : 
00006 CF 00 FB 90015 CALLS #0, LBRSLOAD_DCX > 2480 | 
26 50 €9 OOO1A BLBC STATUS. s : 
64 0800 8F B80 0001D 1$: MOVW #204 > 2482 | 
5 04 AC D0 0022 MOVL RECORD, DF DESC, R2 : 2483 | 
02 =A 010E of BO 00026 MOV ; 
2 DD 0002¢ PUSHL : 2486. 
14 BB 000 PUSHR #M<R2,R4> : | 
52. AS OF 000 PUSHAB 82(R3) : | 
0000G ODF F 4} 00 CALLS #4, @DCX_EXPAND_DATA 3 
08 0 €9 000 BLBC = STATUS, ; | 
04 A2 04 A& DO 0003 MOVL  4(R4), 4(R2) : 2487, 
50 01 DO 0004 MOVL #1, RO > 2488 | 
04 00043 2%: RET + 2489 | 


; Routine Size: 68 bytes, Routine Base: $CODES + OF51 


8 
LBR_GETHELP Extract help text from Librar 18-56 -1984 01:50: VAX-11 Bliss-32 V4.0-74 Pa 68 
ibe =850 Routine skip_blanks , 12=808- 1 3be 93:39:98 DT EKSYMGHASTERSLV BR SRCTGETHELP.832;1 9° 26) | 
; 1787 490 1 ZSBITL ‘Routine skip blanks’: 
: \f 3 $31 1 ROUT INE kip blanks (Tinedesc, Lineptr) = 
: 1790 49 1+4 
3; 1791 494 ! This routine skips blanks and tabs in the Line. 
: 1738 495 ! Returns true if skipped to non-blank, non-tab character 
: ad, re Returns false if skipped to exclamation pointer or end of Line. 
: 1795 498 Inputs: 
; 1799 500 i Linedesc Address of string descriptor for current Line 
5 178 23) Lineptr Address of pointer to current spot in Line 
: 1800 808 i Outputs: 
; 1801 504 ! 
: 1o08 a02 Lineptr updated 
: 1804 307 ; Return values: 
: 1806 2509 2! true more to come 
3 Hb 4 $2i9 2 false no non-blank, non-tab, non-comment found 
> 1809 2512 ; ine 
; 1810 51 
3; 1811 2514 MAP 
3 13l¢ sel? Linedesc : REF BBLOCK; 
: 1814 $215 LOCAL 
: 1815 2518 2 retval, 
: 1816 2519 2 ownptr, 
3; 1817 2520 2 endptr, 
3 isis $25) § curchar; 
; 1820 $356 2 IF .linedesc Cdsc$w_length]) EQL 0 '1f O-Length Line 
; 1821 2524 § THEN RETURN false; ! then end of Line } 
: 1822 2525 ownptr = ..lineptr; 'Make a copy of the qeintor 
3; 1823 2526 2 endptr = .linedesc eGaeSu_ tongesy + .Linedesc CdscSa_pointer] - 1; 
3 ese $25? tLe cueeare (,.endptr, .ownptr) GTR 0 
: 1858 $265 curchar = CH$A_RCHAR (ownptr); 
: 1827 2530 IF .curchar EQC ZASCII '! 
: 1828 2531 4 THEN BEGIN 
: 1829 $236 4 pecnente = ,ownptr; 
: 183 S83, pad cae: 
: 1852 $939 i IF .curchar NEQ ZASCII ‘ ' 
; 183 536 3 AND .curchar NEQ ZASCII ° . 
3: 1834 537 4 THEN BEGIN 
3; 1835 538 4 .lineptr = .ownptr; 
183 35S ted 
> 1838 soe END; : 
3; 1839 266 -lineptr = .ownptr; : 
; 1840 54 RETURN false; ‘Went to end of Line 
; 1841 544 1 END; !Of skip_blanks 


H 8 
LBR_GETHELP Extract help text from Librar 16-Sep-1984 01:50: VAX-11 Bliss-32 V4.0-74 p 69 
y8e2050 Rout ine skip blanks , 12=808- 132 93:39:98 DLEKSVMGMASTERSLLBR  SRCIGETHELP.B32:1° 9" (205 


0004 00000 SKIP_BLANKS: 
oW RD 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 17 0 581 00:01.0 


0 Save R2 3 $03 : 

50 064 AC D ope MOVL LINEDESC, RO 3 2523. : 

§ B : TSTW (RO) : | 3 

1 8 BEQL 3$ : F 

52 08 Be 0 O0A MOVL @LINEPTR, OWNPTR 3 $282 | : 

51 6 C BOF MOVZWL (RO), R1 : 2526) : 

50 51 04 ad Ci 0001 ADDL3 4 (ROS, R1, RO : ; 

28 D7 O38 DECL ENDPT : : 

52 Di 00018 1$: CMPL ns OWNPTR 3 2527) : 

1¢ 15 00018 BLEQ $ 3 : 

52 06 0001D INCL OWNPTR : 2529) 3 

51 6 9A OOOTF MOVZBL (OWNPTR),  enpecay : : 

21 51 01 000 ¢ CMPL CURCHAR, # : 2530) $ 

12 13 000 BEQL : : 

20 51 D1 00027 CMPL CURCHAR, #32 ; 2535) : 

gf 13 QO02A BEQL 1$ : F 

09 1 01 0002C CMPL CURCHAR, #9 3; 2536) ; 

4 13 Bogs BEQL 1 : 3 

08 BC 2 00 00031 MOVL OWNPTR, @LINEPTR : 2538 ; 

50 01 00 00035 MOVL #1, RO 3; 2539 : 

04 00038 RET 3 : 

08 BC 52 00 00039 q: MOVL OWNPTR, @LINEPTR : 2542 ‘ 

50 04 0003D 3$: CLRL RO 3 2544) ; 

04 0003F RET : | : 

; Routine Size: 64 bytes, Routine Base: SCODES + 0F95 | : 
; 1846 2545 1 END ! Of module : 
; 184 2546 0 ELUDOM ‘ 
| a 

; PSECT SUMMARY : 
5 Name Bytes Attributes ‘ 
; SCODES 4053 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics : 
Sa ae See ee a ee) Te |. eon Symbols -------- Pages Processing : 
$ File Total Loaded Percent Mapped Time : 


veczeb0 muatee 1bose 8p e8e 93:80 8g UNKSUmSmASTERSCLOR SRCSGETHELP.832:1°%" (265 


| 
| 
| 
' 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETHELP/OBJ=OBJ$:GETHELP MSRC$:GETHELP/UPDATE=(ENH$:GETHELP) 
; pice; 3893 1°99, + 160 data bytes 


: Elapsed Time 3 1.3 
: Lines/CPU Min: 1973 

3; Lexemes/CPU-Min: 23340 

3 penety Used: 324 pages 
3 a 


; Compilation Complete 


. 
o 
7 
cf 
. 
e 
. 
. 
~ 
. 
> 
o 
° 
. 
. 
° 
° 
oe 
. 
7 
. 
e 
° 
e 
. 
eo 
. 
o 
. 
2 
& 
a 
. 
2 
° 
2 
© 
o 
. 
a 
a 
e 
- 
. 
- 
. 
e 
. 
o 
. 
. 
7 
. 
- 
e 
. 
a 
> 
a 
- 
e 
o 
- 
e 
. 
e 
. 
o 
. 
a 
. 
o 
ce 
. 
e 
. 
oe 
a 
° 
o 
> 
oe 
7 
e 
. 
os 
. 
2 
. 
. 
. 
e 
. 
. 
. 
. 
e 
. 
* 
. 
. 
. 
eo 
. 
& 
. 
e 
. 
. 
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